42 integer(i4b),
parameter :: n_unit=31
46 open(n_unit, iostat=ios, &
47 file=inpath//
'/'//trim(ch_domain_short)//
'/'//phys_para_file, &
49 if (ios /= 0) stop
' phys_para: Error when opening the phys_para file!'
93 close(n_unit, status=
'keep')
subroutine phys_para()
Reading of physical parameters.
Declarations of kind types for SICOPOLIS.
Declarations of global variables for SICOPOLIS (for the ANT domain).
Declarations of global variables for SICOPOLIS.
subroutine read_phys_para_value(para, n_unit)
Reading of a value of a physical parameter from the phys_para file.