37 integer,
parameter :: komax=70
38 integer,
parameter :: lsmdef=46
39 integer,
PARAMETER :: nfd=20
40 integer,
PARAMETER :: nbnd=6
41 REAL,
PARAMETER :: qmin = 1.e-15
45 character(len=256) :: filename
46 character(len=256) :: filenameflux
47 character(len=256) :: filenamed3d
48 character(len=256) :: filenameaer
49 character(len=256) :: filenameflat
50 character(len=19) :: datestr
51 character(len=4) :: modelname
52 character(len=4) :: submodelname
53 character(len=8) :: fullmodelname
54 character(len=20) :: ioform
55 character(len=4) :: vtimeunits
63 real,
allocatable :: datapd(:,:,:)
76 logical :: method_blsn
90 integer :: imp_physics
91 integer :: icu_physics
92 integer :: isf_surface_physics
97 integer :: icount_calmict
141 integer :: icnt(0:1023)
142 integer :: idsp(0:1023)
143 integer :: icnt2(0:1023)
144 integer :: idsp2(0:1023)
151 integer :: num_servers
152 integer :: mpi_comm_inter
153 integer :: mpi_comm_comp
182 real,
allocatable :: bufs(:)
183 real,
allocatable :: buff(:)
184 integer,
allocatable :: isxa(:)
185 integer,
allocatable :: iexa(:)
186 integer,
allocatable :: jsxa(:)
187 integer,
allocatable :: jexa(:)
189 integer,
allocatable :: ibufs(:)
190 real,
allocatable :: rbufs(:)
223 real :: spldef(lsmdef) = &
224 (/200.,500.,700.,1000.,2000.,3000. &
225 ,5000.,7000.,7500.,10000.,12500.,15000.,17500.,20000.,22500. &
226 ,25000.,27500.,30000.,32500.,35000.,37500.,40000.,42500.,45000. &
227 ,47500.,50000.,52500.,55000.,57500.,60000.,62500.,65000. &
228 ,67500.,70000.,72500.,75000.,77500.,80000.,82500.,85000. &
229 ,87500.,90000.,92500.,95000.,97500.,100000./)
236 integer,
parameter :: nbin_du = 5
237 integer,
parameter :: nbin_ss = 5
238 integer,
parameter :: nbin_oc = 2
239 integer,
parameter :: nbin_bc = 2
240 integer,
parameter :: nbin_su = 1
241 integer,
parameter :: nbin_no3 = 3
242 integer,
parameter :: nbin_nh4 = 1
243 integer,
parameter :: nbin_sm = 1
246 DATA htfd / 20.e0,30.e0,40.e0,50.e0,80.e0,100.e0,160.e0,305.e0,320.e0,457.e0,610.e0, &
247 914.e0,1524.e0,1829.e0,2134.e0,2743.e0,3658.e0,4572.e0, &
251 DATA sigbnd / 0.985,0.955,0.925,0.895,0.865,0.835 /
252 DATA petabnd / 15.,45.,75.,105.,135.,165./
256 integer :: ifi_nflight = 0
257 real,
allocatable :: ifi_flight_levels(:)
260 end module ctlblk_mod
integer imdlty
No longer used/supported.
real(kind=8) etafld2_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
integer iout
No longer used/supported.
integer ncp
No longer used/supported.
real(kind=8) mdl2agl_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
real, dimension(:,:), allocatable rbcoords
Arrays that store the coordinates of their elements; used to validate communications; when scattered ...
integer nbc
No longer used/supported.
integer nfcst
No longer used/supported.
integer nrads
No longer used/supported.
real(kind=8) surfce2_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
real(kind=8) time_e2out
Initialized as 0, but never used.
real(kind=8) eta2p_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
integer nboco
No longer used/supported.
integer, dimension(:,:), allocatable ibcoords
Arrays that store the coordinates of their elements; used to validate communications; when scattered ...
real(kind=8) calrad_wcloud_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
real(kind=8) mdl2std_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
real(kind=8) run_ifi_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
integer, dimension(:,:), allocatable icoords
Arrays that store the coordinates of their elements; used to validate communications; when scattered ...
integer list
No longer used/supported.
integer nshde
No longer used/supported.
real(kind=8) time_output
Initialized as 0, but never used.
integer nradl
No longer used/supported.
integer nddamp
No longer used/supported.
real(kind=8) fixed_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
real(kind=8) readxml_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
real(kind=8) miscln_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
real(kind=8) mdl2thandpv_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
integer ntstm
No longer used/supported.
integer idtad
No longer used/supported.
real(kind=8) cldrad_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
real, dimension(:,:), allocatable rcoords
Arrays that store the coordinates of their elements; used to validate communications; when scattered ...
real(kind=8) mdl2sigma_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...