84 integer,
parameter :: iunit=41
116 print*,
"- READ CONFIGURATION NAMELIST"
118 open(iunit, iostat=istat)
122 print*,
'- FATAL ERROR: BAD OPEN ON CONFIG NAMELIST. ISTAT IS ', istat
124 call w3tage(
'SNOW2MDL')
128 read(iunit, nml=source_data, iostat=istat, err=900)
130 read(iunit, nml=qc, iostat=istat, err=900)
132 read(iunit, nml=model_specs, iostat=istat, err=900)
134 read(iunit, nml=output_data, iostat=istat, err=900)
136 read(iunit, nml=output_grib_time, iostat=istat, err=900)
138 read(iunit, nml=parameters, iostat=istat, err=900)
161 print*,
'- FATAL ERROR: BAD READ ON CONFIG NAMELIST. ISTAT IS ', istat
163 call w3tage(
'SNOW2MDL')
This module reads in data from the program's configuration namelist.
character *200, public afwa_lsmask_sh_file
path/name afwa s hemis land/sea mask
integer, public grib_day
date of the final merged snow product that will be placed in grib header.
character *200, public gfs_lpl_file
GFS gaussian thinned (reduced) grid definition file.
real, public lat_threshold
equatorward of this latitude, model points with undefined cover or depth (because the interpolation r...
character *200, public model_snow_file
path/name nesdis/ims snow cover
subroutine, public read_config_nml
Read namelist control.
character *200, public afwa_lsmask_nh_file
path/name afwa n hemis land/sea mask
character *200, public nesdis_snow_file
nesdis/ims snow file
character *200, public climo_qc_file
Climatological snow cover file.
character *200, public afwa_snow_nh_file
path/name afwa n hemis snow depth
character *200, public afwa_snow_global_file
global afwa snow file.
integer, public grib_year
date of the final merged snow product that will be placed in grib header.
real, public min_snow_depth
minimum snow depth in meters at model points with coverage exceeding threshold.
character *200, public model_lat_file
path/name lats on the model grid
character *200, public model_lon_file
path/name lons on the model grid
real, public snow_cvr_threshold
if percent coverage according to nesdis/ims or autosnow exceeds this value, then non-zero snow depth ...
character *200, public nesdis_lsmask_file
nesdis/ims land mask file
character *200, public model_lsmask_file
path/name nesdis/ims land mask
character *200, public autosnow_file
path/name s hemis autosnow file
logical, public output_grib2
when true, output model snow analysis is grib 2.
integer, public grib_month
date of the final merged snow product that will be placed in grib header.
integer, public grib_century
date of the final merged snow product that will be placed in grib header.
integer, public grib_hour
date of the final merged snow product that will be placed in grib header.
character *200, public afwa_snow_sh_file
path/name afwa s hemis snow depth
1.11.0