Go to the documentation of this file.
41 integer(i4b),
parameter :: n_unit=31
45 open(n_unit, iostat=ios, &
46 file=inpath//
'/scand/'//phys_para_file, &
48 if (ios /= 0) stop
' phys_para: Error when opening the phys_para file!'
91 close(n_unit, status=
'keep')