GFS Operational Physics Documentation  gsm/branches/DTC/phys-doc-all phys-doc-all R82971
physparam.f
Go to the documentation of this file.
1 
3 
4 ! ========================================================== !!!!!
5 ! module physparam description !!!!!
6 ! ========================================================== !!!!!
7 ! !
8 ! This module defines commonly used control variables/parameters !
9 ! in physics related programs. !
10 ! !
11 ! Section 1 contains control variables defined in the form of !
12 ! parameter. They are pre-determined choices and not adjustable !
13 ! during model's run-time. !
14 ! !
15 ! Section 2 contains control variables defined as module variables.!
16 ! They are more flexible to be changed during run-time by either !
17 ! through input namelist, or through model environment condition. !
18 ! They are preassigned here as the default values. !
19 ! !
20 !!!!! ========================================================== !!!!!
21 
36 !========================================!
37  module physparam !
38 !........................................!
39 !
40 ! implicit none
41 
42 ! --- ... define kind parameters here
43 
44 ! ** if already exist, use the module containing kind definitions
45  use machine
46 
47 ! ** otherwise, define kind parameter here
48 ! implicit none
49 ! integer, public, parameter :: kind_io4 = 4
50 ! integer, public, parameter :: kind_io8 = 8
51 ! integer, public, parameter :: kind_phys= selected_real_kind(13,60) ! the '60' maps to 64-bit real
52 ! .....
53 
54 ! implicit none
55 !
56  public
57 
58 !==================================================================================
59 ! Section - 1 -
60 ! control flags are pre-set as run-time non-adjuztable parameters.
61 !==================================================================================
62 
63 ! ............................................. !
65 ! ............................................. !
66 
68  integer,parameter :: iswrate = 2
69 
73  integer,parameter :: iswrgas = 1
74 
79  integer,save :: iswcliq = 1
80 
88  integer,save :: iswcice = 3
89 
97  integer,parameter :: iswmode = 2
98 
99 ! ............................................. !
101 ! ............................................. !
102 
104  integer,parameter :: ilwrate = 2
105 
109  integer,parameter :: ilwrgas = 1
110 
115  integer,save :: ilwcliq = 1
116 
124  integer,save :: ilwcice = 3
125 
126 ! ............................................. !
128 
133  logical,parameter :: lalw1bd =.false.
134 
135 !==================================================================================
136 ! Section - 2 -
137 ! values of control flags might be re-set in initialization subroutines
138 ! (may be adjusted at run time based on namelist input or run condition)
139 !==================================================================================
140 
141 ! ............................................. !
143 ! ............................................. !
144 
153  integer, save :: isolar = 0
154 
156  character, save :: solar_file*26
157 ! data solar_file / 'solarconstantdata.txt ' /
158  data solar_file / 'solarconstant_noaa_a0.txt ' /
159 
160 ! ............................................. !
162 ! ............................................. !
163 
169  integer, save :: iaermdl = 0
177  integer, save :: iaerflg = 0
181  logical, save :: lalwflg = .true.
185  logical, save :: laswflg = .true.
190  logical, save :: lavoflg = .true.
192  character, save :: aeros_file*26
193 ! data aeros_file / 'climaeropac_global.txt ' /
194  data aeros_file / 'aerosol.dat ' /
195 
196 ! ............................................. !
198 ! ............................................. !
199 
205  integer, save :: ico2flg = 0
215  integer, save :: ictmflg = 0
220  integer, save :: ioznflg = 1
222  character, save :: co2dat_file*26
224  character, save :: co2gbl_file*26
226  character, save :: co2usr_file*26
228  character, save :: co2cyc_file*26
229  data co2dat_file / 'co2historicaldata_2004.txt' / !year is run-time selected
230  data co2gbl_file / 'co2historicaldata_glob.txt' /
231  data co2usr_file / 'co2userdata.txt ' /
232  data co2cyc_file / 'co2monthlycyc.txt ' /
233 
234 ! ............................................. !
236 ! ............................................. !
237 
241  integer, save :: icldflg = 1
246  integer, save :: icmphys = 1
251  integer, save :: iovrsw = 1
256  integer, save :: iovrlw = 1
258  logical, save :: lcrick =.false.
260  logical, save :: lcnorm =.false.
262  logical, save :: lnoprec =.false.
264  logical, save :: lsashal =.false.
265 
266 ! ............................................. !
268 ! ............................................. !
269 
273  integer, save :: ialbflg = 0
278  integer, save :: iemsflg = 0
279 
281  character, save :: semis_file*26
282  data semis_file / 'sfc_emissivity_idx.txt ' /
283 
284 ! ............................................. !
286 ! ............................................. !
287 
289  integer, save :: ivflip = 1
295  integer, save :: isubcsw = 0
301  integer, save :: isubclw = 0
303  integer, save :: ipsd0 = 0
304 !
305 !...................................!
306  end module physparam !
307 !===================================!
308 !! @}
integer, save iovrsw
cloud overlapping control flag for SW =0:use random cloud overlapping method =1:use maximum-rando...
Definition: physparam.f:251
integer, save isubcsw
sub-column cloud approx flag in SW radiation =0:no McICA approximation in SW radiation =1:use McI...
Definition: physparam.f:295
character, save co2dat_file
external co2 2d monthly obsv data table: co2historicaldata_2004.txt
Definition: physparam.f:222
integer, save iaermdl
aerosol model scheme control flag =0:seasonal global distributed OPAC aerosol climatology =1:mont...
Definition: physparam.f:169
logical, save lalwflg
LW aerosols effect control flag =.true.:aerosol effect is included in LW radiation =...
Definition: physparam.f:181
character, save co2gbl_file
external co2 global annual mean data tb: co2historicaldata_glob.txt
Definition: physparam.f:224
integer, parameter ilwrate
LW heating rate unit: =1:k/day; =2:k/second.
Definition: physparam.f:104
integer, save iaerflg
aerosol effect control flag 3-digit flag 'abc': a-stratospheric volcanic aerols b-tropospheric ...
Definition: physparam.f:177
logical, save lcnorm
in-cld condensate control flag
Definition: physparam.f:260
integer, parameter iswrgas
SW minor gases effect control flag (CH4 and O2): =0:no; =1:yes. =0: minor gases' effects are not in...
Definition: physparam.f:73
logical, save lcrick
eliminating CRICK control flag
Definition: physparam.f:258
integer, save ialbflg
surface albedo scheme control flag =0:vegetation type based climatological albedo scheme =1:seaso...
Definition: physparam.f:273
character, save co2usr_file
external co2 user defined data table: co2userdata.txt
Definition: physparam.f:226
integer, parameter iswmode
SW control flag for scattering process approximation =1:two-stream delta-eddington (Joseph et al...
Definition: physparam.f:97
character, save semis_file
external sfc emissivity data table: sfc_emissivity_idx.txt
Definition: physparam.f:281
integer, save ico2flg
co2 data source control flag =0:prescribed value(380 ppmv) =1:yearly global averaged annual mean ...
Definition: physparam.f:205
integer, save icmphys
cloud micorphysics scheme control flag =1:modified Zhao/Carr/Sundqvist scheme (Moorthi, 2001) =2:Ferrier microphysics scheme (Ferrier et al. 2002) =3:as in 1 but with pdf method defined cloud cover
Definition: physparam.f:246
integer, save icldflg
cloud optical property scheme control flag =0:use diagnostic cloud scheme for cloud cover and mean ...
Definition: physparam.f:241
integer, parameter ilwrgas
LW minor gases effect control flag (CH4,N2O,O2,and some CFCs): =0: minor gases' effects are not inc...
Definition: physparam.f:109
integer, save iemsflg
surface emissivity scheme control flag =0:black-body surface emissivity(=1.0) =1:vegetation type ...
Definition: physparam.f:278
logical, parameter lalw1bd
selects 1 band or multi bands for LW aerosol properties =.true.:aerosol properties calculated in 1 ...
Definition: physparam.f:133
character, save aeros_file
external aerosols data file: aerosol.dat
Definition: physparam.f:192
integer, save iswcice
SW optical property for ice clouds (only iswcliq>0) =1:optical property scheme based on Ebert and C...
Definition: physparam.f:88
integer, parameter iswrate
SW heating rate unit control flag: =1:k/day; =2:k/second.
Definition: physparam.f:68
logical, save laswflg
SW aerosols effect control flag =.true.:aerosol effect is included in SW radiation =...
Definition: physparam.f:185
logical, save lnoprec
precip effect on radiation flag (Ferrier microphysics)
Definition: physparam.f:262
integer, save iswcliq
SW optical property for liquid clouds =0:input cld opt depth, ignoring iswcice setting =1:cloud o...
Definition: physparam.f:79
integer, save ilwcice
LW optical property scheme for ice clouds (only ilwcliq>0) =1:optical property scheme based on Eber...
Definition: physparam.f:124
integer, save ioznflg
ozone data source control flag =0:use seasonal climatology ozone data >0:use prognostic ozone sch...
Definition: physparam.f:220
integer, save ilwcliq
LW optical property scheme for liquid clouds =0:input cloud optical properties directly, not computed within =1:input cwp,rew, use Hu and Stamnes(1993) method.
Definition: physparam.f:115
character, save co2cyc_file
external co2 clim monthly cycle data tb: co2monthlycyc.txt
Definition: physparam.f:228
integer, save ictmflg
controls external data at initial time and data usage during forecast time =-2:as in 0...
Definition: physparam.f:215
integer, save isolar
solar constant scheme control flag =0:fixed value=1366.0 (old standard) =10:fixed value=1360...
Definition: physparam.f:153
integer, save ipsd0
initial permutaion seed for mcica radiation
Definition: physparam.f:303
logical, save lsashal
shallow convetion flag
Definition: physparam.f:264
integer, save isubclw
sub-column cloud approx flag in LW radiation =0:no McICA approximation in LW radiation =1:use McI...
Definition: physparam.f:301
integer, save ivflip
vertical profile indexing flag
Definition: physparam.f:289
integer, save iovrlw
cloud overlapping control flag for LW =0:use random cloud overlapping method =1:use maximum-rando...
Definition: physparam.f:256
logical, save lavoflg
stratospheric volcanic aerosol effect flag =.true.:historical events of stratosphere volcanic aeros...
Definition: physparam.f:190
character, save solar_file
external solar constant data table,solarconstant_noaa_a0.txt
Definition: physparam.f:156