emcsfc_snow2mdl  1.13.0
program_setup.F90
Go to the documentation of this file.
1 
5 
15  module program_setup
16 
17  implicit none
18 
19  private
20 
21  character*200, public :: afwa_snow_global_file
22  character*200, public :: afwa_snow_nh_file
23  character*200, public :: afwa_snow_sh_file
24  character*200, public :: afwa_lsmask_nh_file
25  character*200, public :: afwa_lsmask_sh_file
26  character*200, public :: autosnow_file
27  character*200, public :: climo_qc_file
29  character*200, public :: gfs_lpl_file
32  character*200, public :: model_lat_file
33  character*200, public :: model_lon_file
34  character*200, public :: model_lsmask_file
35  character*200, public :: model_snow_file
36  character*200, public :: nesdis_lsmask_file
37  character*200, public :: nesdis_snow_file
38 
39  integer, public :: grib_century
40 
41  integer, public :: grib_day
42  integer, public :: grib_hour
43  integer, public :: grib_month
44  integer, public :: grib_year
45 
46  logical, public :: output_grib2
47 
48  real, public :: lat_threshold
52  real, public :: min_snow_depth
53  real, public :: snow_cvr_threshold
55 
56  public :: read_config_nml
57 
58  contains
59 
80  subroutine read_config_nml
81 
82  implicit none
83 
84  integer, parameter :: iunit=41
85  integer :: istat
86 
87  namelist /source_data/ autosnow_file, &
88  nesdis_snow_file, &
89  nesdis_lsmask_file, &
90  afwa_snow_global_file, &
91  afwa_snow_nh_file, &
92  afwa_snow_sh_file, &
93  afwa_lsmask_nh_file, &
94  afwa_lsmask_sh_file
95 
96  namelist /qc/ climo_qc_file
97 
98  namelist /model_specs/ model_lat_file, &
99  model_lon_file, &
100  model_lsmask_file, &
101  gfs_lpl_file
102 
103  namelist /output_data/ model_snow_file, &
104  output_grib2
105 
106  namelist /output_grib_time/ grib_year, &
107  grib_month, &
108  grib_day, &
109  grib_hour
110 
111  namelist /parameters/ lat_threshold, &
112  min_snow_depth, &
113  snow_cvr_threshold
114 
115  print*,''
116  print*,"- READ CONFIGURATION NAMELIST"
117 
118  open(iunit, iostat=istat)
119 
120  if (istat /= 0) then
121  print*,''
122  print*,'- FATAL ERROR: BAD OPEN ON CONFIG NAMELIST. ISTAT IS ', istat
123  close(iunit)
124  call w3tage('SNOW2MDL')
125  call errexit(77)
126  end if
127 
128  read(iunit, nml=source_data, iostat=istat, err=900)
129 
130  read(iunit, nml=qc, iostat=istat, err=900)
131 
132  read(iunit, nml=model_specs, iostat=istat, err=900)
133 
134  read(iunit, nml=output_data, iostat=istat, err=900)
135 
136  read(iunit, nml=output_grib_time, iostat=istat, err=900)
137 
138  read(iunit, nml=parameters, iostat=istat, err=900)
139 
140  close(iunit)
141 
142 !-----------------------------------------------------------------------
143 ! the user determines the date/time stamp for the final interpolated
144 ! model data.
145 !-----------------------------------------------------------------------
146 
147  grib_century = grib_year / 100
148 
149  grib_year = mod(grib_year,100)
150 
151  if (grib_year == 0) then
152  grib_year = 100
153  else
154  grib_century = grib_century + 1
155  end if
156 
157  return
158 
159  900 continue
160  print*,''
161  print*,'- FATAL ERROR: BAD READ ON CONFIG NAMELIST. ISTAT IS ', istat
162  close(iunit)
163  call w3tage('SNOW2MDL')
164  call errexit(78)
165 
166  end subroutine read_config_nml
167 
168  end module program_setup
program_setup
This module reads in data from the program's configuration namelist.
Definition: program_setup.F90:15
program_setup::snow_cvr_threshold
real, public snow_cvr_threshold
if percent coverage according to nesdis/ims or autosnow exceeds this value, then non-zero snow depth ...
Definition: program_setup.F90:53
program_setup::min_snow_depth
real, public min_snow_depth
minimum snow depth in meters at model points with coverage exceeding threshold.
Definition: program_setup.F90:52
program_setup::grib_century
integer, public grib_century
date of the final merged snow product that will be placed in grib header.
Definition: program_setup.F90:39
program_setup::grib_month
integer, public grib_month
date of the final merged snow product that will be placed in grib header.
Definition: program_setup.F90:43
program_setup::climo_qc_file
character *200, public climo_qc_file
Climatological snow cover file.
Definition: program_setup.F90:27
program_setup::nesdis_lsmask_file
character *200, public nesdis_lsmask_file
nesdis/ims land mask file
Definition: program_setup.F90:36
program_setup::afwa_lsmask_nh_file
character *200, public afwa_lsmask_nh_file
path/name afwa n hemis land/sea mask
Definition: program_setup.F90:24
program_setup::afwa_lsmask_sh_file
character *200, public afwa_lsmask_sh_file
path/name afwa s hemis land/sea mask
Definition: program_setup.F90:25
program_setup::autosnow_file
character *200, public autosnow_file
path/name s hemis autosnow file
Definition: program_setup.F90:26
program_setup::afwa_snow_sh_file
character *200, public afwa_snow_sh_file
path/name afwa s hemis snow depth
Definition: program_setup.F90:23
program_setup::grib_day
integer, public grib_day
date of the final merged snow product that will be placed in grib header.
Definition: program_setup.F90:41
program_setup::nesdis_snow_file
character *200, public nesdis_snow_file
nesdis/ims snow file
Definition: program_setup.F90:37
program_setup::lat_threshold
real, public lat_threshold
equatorward of this latitude, model points with undefined cover or depth (because the interpolation r...
Definition: program_setup.F90:48
program_setup::output_grib2
logical, public output_grib2
when true, output model snow analysis is grib 2.
Definition: program_setup.F90:46
program_setup::model_lon_file
character *200, public model_lon_file
path/name lons on the model grid
Definition: program_setup.F90:33
program_setup::afwa_snow_global_file
character *200, public afwa_snow_global_file
global afwa snow file.
Definition: program_setup.F90:21
program_setup::afwa_snow_nh_file
character *200, public afwa_snow_nh_file
path/name afwa n hemis snow depth
Definition: program_setup.F90:22
program_setup::model_snow_file
character *200, public model_snow_file
path/name nesdis/ims snow cover
Definition: program_setup.F90:35
program_setup::gfs_lpl_file
character *200, public gfs_lpl_file
GFS gaussian thinned (reduced) grid definition file.
Definition: program_setup.F90:29
program_setup::grib_year
integer, public grib_year
date of the final merged snow product that will be placed in grib header.
Definition: program_setup.F90:44
program_setup::grib_hour
integer, public grib_hour
date of the final merged snow product that will be placed in grib header.
Definition: program_setup.F90:42
program_setup::model_lsmask_file
character *200, public model_lsmask_file
path/name nesdis/ims land mask
Definition: program_setup.F90:34
program_setup::read_config_nml
subroutine, public read_config_nml
Read namelist control.
Definition: program_setup.F90:81
program_setup::model_lat_file
character *200, public model_lat_file
path/name lats on the model grid
Definition: program_setup.F90:32