GFS Operational Physics Documentation  Revision: 81451
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 
27 !========================================!
28  module physparam !
29 !........................................!
30 !
31 ! implicit none
32 
33 ! --- ... define kind parameters here
34 
35 ! ** if already exist, use the module containing kind definitions
36  use machine
37 
38 ! ** otherwise, define kind parameter here
39 ! implicit none
40 ! integer, public, parameter :: kind_io4 = 4
41 ! integer, public, parameter :: kind_io8 = 8
42 ! integer, public, parameter :: kind_phys= selected_real_kind(13,60) ! the '60' maps to 64-bit real
43 ! .....
44 
45 ! implicit none
46 !
47  public
48 
49 !==================================================================================
50 ! Section - 1 -
51 ! control flags are pre-set as run-time non-adjuztable parameters.
52 !==================================================================================
53 
54 ! ............................................. !
56 ! ............................................. !
57 
59  integer,parameter :: iswrate = 2
60 
62  integer,parameter :: iswrgas = 1
63 
69  integer,save :: iswcliq = 1
70 
79  integer,save :: iswcice = 3
80 
88  integer,parameter :: iswmode = 2
89 
90 ! ............................................. !
92 ! ............................................. !
93 
95  integer,parameter :: ilwrate = 2
96 
98  integer,parameter :: ilwrgas = 1
99 
105  integer,save :: ilwcliq = 1
106 
114  integer,save :: ilwcice = 3
115 
116 ! ............................................. !
118 
121  logical,parameter :: lalw1bd =.false.
122 
123 !==================================================================================
124 ! Section - 2 -
125 ! values of control flags might be re-set in initialization subroutines
126 ! (may be adjusted at run time based on namelist input or run condition)
127 !==================================================================================
128 
129 ! ............................................. !
131 ! ............................................. !
132 
134  integer, save :: isolar = 0
135 
137  character, save :: solar_file*26
138 ! data solar_file / 'solarconstantdata.txt ' /
139  data solar_file / 'solarconstant_noaa_a0.txt ' /
140 
141 ! ............................................. !
143 ! ............................................. !
144 
146  integer, save :: iaermdl = 0
148  integer, save :: iaerflg = 0
150  logical, save :: lalwflg = .true.
152  logical, save :: laswflg = .true.
154  logical, save :: lavoflg = .true.
156  character, save :: aeros_file*26
157 ! data aeros_file / 'climaeropac_global.txt ' /
158  data aeros_file / 'aerosol.dat ' /
159 
160 ! ............................................. !
162 ! ............................................. !
163 
165  integer, save :: ico2flg = 0
167  integer, save :: ictmflg = 0
169  integer, save :: ioznflg = 1
171  character, save :: co2dat_file*26
173  character, save :: co2gbl_file*26
175  character, save :: co2usr_file*26
177  character, save :: co2cyc_file*26
178  data co2dat_file / 'co2historicaldata_2004.txt' / !year is run-time selected
179  data co2gbl_file / 'co2historicaldata_glob.txt' /
180  data co2usr_file / 'co2userdata.txt ' /
181  data co2cyc_file / 'co2monthlycyc.txt ' /
182 
183 ! ............................................. !
185 ! ............................................. !
186 
188  integer, save :: icldflg = 1
190  integer, save :: icmphys = 1
192  integer, save :: iovrsw = 1
194  integer, save :: iovrlw = 1
196  logical, save :: lcrick =.false.
198  logical, save :: lcnorm =.false.
200  logical, save :: lnoprec =.false.
202  logical, save :: lsashal =.false.
203 
204 ! ............................................. !
206 ! ............................................. !
207 
209  integer, save :: ialbflg = 0
211  integer, save :: iemsflg = 0
212 
214  character, save :: semis_file*26
215  data semis_file / 'sfc_emissivity_idx.txt ' /
216 
217 ! ............................................. !
219 ! ............................................. !
220 
222  integer, save :: ivflip = 1
224  integer, save :: isubcsw = 0
226  integer, save :: isubclw = 0
228  integer, save :: ipsd0 = 0
229 !
230 !...................................!
231  end module physparam !
232 !===================================!
233 !! @}
integer, save iovrsw
cloud overlapping control flag for SW
Definition: physparam.f:192
integer, save isubcsw
sub-column cloud approx flag in SW radiation
Definition: physparam.f:224
character, save co2dat_file
external co2 2d monthly obsv data table: co2historicaldata_2004.txt
Definition: physparam.f:171
integer, save iaermdl
aerosol model scheme control flag
Definition: physparam.f:146
logical, save lalwflg
LW aerosols effect control flag.
Definition: physparam.f:150
character, save co2gbl_file
external co2 global annual mean data tb: co2historicaldata_glob.txt
Definition: physparam.f:173
integer, parameter ilwrate
LW heating rate unit (1:k/day; 2:k/second): =1:k/day; =2:k/second.
Definition: physparam.f:95
integer, save iaerflg
aerosol effect control flag
Definition: physparam.f:148
logical, save lcnorm
in-cld condensate control flag
Definition: physparam.f:198
integer, parameter iswrgas
SW rare gases effect control flag (ch4,n2o,o2,...): =0:no; =1:yes.
Definition: physparam.f:62
logical, save lcrick
eliminating CRICK control flag
Definition: physparam.f:196
integer, save ialbflg
surface albedo scheme control flag
Definition: physparam.f:209
character, save co2usr_file
external co2 user defined data table: co2userdata.txt
Definition: physparam.f:175
integer, parameter iswmode
SW control flag for 2-stream transfer scheme =1:delta-eddington (Joseph et al. 1976 ) =2:pifm (Zd...
Definition: physparam.f:88
character, save semis_file
external sfc emissivity data table: sfc_emissivity_idx.txt
Definition: physparam.f:214
integer, save ico2flg
co2 data source control flag
Definition: physparam.f:165
integer, save icmphys
cloud micorphysics scheme control flag
Definition: physparam.f:190
integer, save icldflg
cloud optical property scheme control flag
Definition: physparam.f:188
integer, parameter ilwrgas
LW rare gases effect control flag (ch4,n2o,o2,cfcs...): =0:no; =1:yes.
Definition: physparam.f:98
integer, save iemsflg
surface emissivity scheme control flag
Definition: physparam.f:211
logical, parameter lalw1bd
=t: use 1 broad-band LW aeros properties =f: use multi bands aeros properites
Definition: physparam.f:121
character, save aeros_file
external aerosols data file: aerosol.dat
Definition: physparam.f:156
integer, save iswcice
SW optical property for ice clouds (only iswcliq>0) =0:not defined yet =1:input cip...
Definition: physparam.f:79
integer, parameter iswrate
SW heating rate unit control flag: =1:k/day; =2:k/second.
Definition: physparam.f:59
logical, save laswflg
SW aerosols effect control flag.
Definition: physparam.f:152
logical, save lnoprec
precip effect on radiation flag (Ferrier microphysics)
Definition: physparam.f:200
integer, save iswcliq
SW optical property for liquid clouds =0:input cld opt depth, ignoring iswcice setting =1:input c...
Definition: physparam.f:69
integer, save ilwcice
LW optical property for ice clouds (only ilwcliq>0) =0:not defined yet =1:input cip...
Definition: physparam.f:114
integer, save ioznflg
ozone data source control flag
Definition: physparam.f:169
integer, save ilwcliq
LW optical property for liquid clouds =0:input cld opt depth, ignoring ilwcice setting =1:input c...
Definition: physparam.f:105
character, save co2cyc_file
external co2 clim monthly cycle data tb: co2monthlycyc.txt
Definition: physparam.f:177
integer, save ictmflg
external data time/date control flag
Definition: physparam.f:167
integer, save isolar
solar constant scheme control flag
Definition: physparam.f:134
integer, save ipsd0
initial permutaion seed for mcica radiation
Definition: physparam.f:228
logical, save lsashal
shallow convetion flag
Definition: physparam.f:202
integer, save isubclw
sub-column cloud approx flag in LW radiation
Definition: physparam.f:226
integer, save ivflip
vertical profile indexing flag
Definition: physparam.f:222
integer, save iovrlw
cloud overlapping control flag for LW
Definition: physparam.f:194
logical, save lavoflg
stratospheric volcanic effect flag
Definition: physparam.f:154
character, save solar_file
external solar constant data table,solarconstant_noaa_a0.txt
Definition: physparam.f:137