UPP (develop)
Loading...
Searching...
No Matches
CTLBLK.f
Go to the documentation of this file.
1
21!-----------------------------------------------------------------------
24 module ctlblk_mod
25!
26 implicit none
27!
29 integer ifld
30 integer lvl
31 integer lvl1
32 integer lvl2
33 integer ntrange
34 integer tinvstat
35 end type
36!
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
42!
43 integer :: novegtype
44!
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
56!
57 character(5) :: grib
58 type(field_info),allocatable :: fld_info(:)
59 integer :: cfld
60 integer :: ntlfld
61 integer :: npset
62 real*8 :: gdsdegr
63 real,allocatable :: datapd(:,:,:)
64!
66 logical :: gocart_on
67 logical :: gccpp_on
68 logical :: nasa_on
69 logical :: d3d_on
70 logical :: hyb_sigp
71 logical :: rdaod
72 logical :: d2d_chem
73 logical :: aqf_on
74 logical :: slrutah_on
75 logical :: gtg_on
76 logical :: method_blsn
77!
78 logical :: sigma
79 logical :: run
80 logical :: first
81 logical :: restrt
82 logical :: global
83 logical :: smflag
84!
85 integer :: idat(5)
86 integer :: ihrst
87 integer :: ifhr
88 integer :: imin
89 integer :: ifmin
90 integer :: imp_physics
91 integer :: icu_physics
92 integer :: isf_surface_physics
93 integer :: datahandle
94 integer :: nprec
95 integer :: nphs
96 integer :: isec
97 integer :: icount_calmict
98 integer :: ivegsrc
99
100!
104 integer :: nfcst,nbc,list,iout,ntstm, &
107!
108 real :: dt
109 real :: sdat(3)
110 real :: avrain
111 real :: avcnvc
112 real :: dtq2
113 real :: pt
114 real :: pdtop
115 real :: spl(komax)
116 real :: alsl(komax)
117 real :: prec_acc_dt
118 real :: pt_tbl
119 real :: prec_acc_dt1
120 real :: spval
121! real :: SPVAL=9.9e10 ! Moorthi
122!
123 integer :: num_procs
124 integer :: me
125 integer :: jsta
126 integer :: jend
127 integer :: ista
128 integer :: iend
129 integer :: jsta_m
130 integer :: jend_m
131 integer :: jsta_m2
132 integer :: jend_m2
133 integer :: ista_m
134 integer :: iend_m
135 integer :: ista_m2
136 integer :: iend_m2
137 integer :: iup
138 integer :: idn
139
141 integer :: icnt(0:1023)
142 integer :: idsp(0:1023)
143 integer :: icnt2(0:1023)
144 integer :: idsp2(0:1023)
145 integer :: jsta_2l
146 integer :: jend_2u
147 integer :: jvend_2u
148 integer :: ista_2l
149 integer :: iend_2u
150 integer :: ivend_2u
151 integer :: num_servers
152 integer :: mpi_comm_inter
153 integer :: mpi_comm_comp
154 integer :: im
155 integer :: jm
156 integer :: lm
157 integer :: nsoil
158 integer :: lp1
159 integer :: lm1
160 integer :: im_jm
161 integer :: ileft
162 integer :: iright
163 integer :: ileftb
164 integer :: irightb
165 integer :: ibsize
166 integer :: ibsum
167 !comm mpi
168 integer :: lsm
169 integer :: lsmp1
170!
176 integer, allocatable :: icoords(:,:)
177 integer, allocatable :: ibcoords(:,:)
178 real, allocatable :: rcoords(:,:)
179 real, allocatable :: rbcoords(:,:)
181
182 real, allocatable :: bufs(:)
183 real, allocatable :: buff(:)
184 integer, allocatable :: isxa(:)
185 integer, allocatable :: iexa(:)
186 integer, allocatable :: jsxa(:)
187 integer, allocatable :: jexa(:)
188 integer numx
189 integer, allocatable :: ibufs(:)
190 real, allocatable :: rbufs(:)
191!
192!comm rad
193 real :: ardsw
194 real :: ardlw
195 real :: asrfc
196 real :: tsrfc
197 real :: trdlw
198 real :: trdsw
199 real :: tclod
200 real :: theat
201 real :: tprec
202 real :: tmaxmin
203 real :: td3d
204!
205 real pthresh
206!
209 real(kind=8) :: etafld2_tim=0.,eta2p_tim=0.,surfce2_tim=0., &
213 calrad_wcloud_tim=0.,run_ifi_tim=0. !comm tim_info
215!
219 real(kind=8) :: time_output=0., time_e2out=0. !comm jjt
221!
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./)
230!
231 REAL htfd(nfd)
232 REAL petabnd(nbnd)
233 REAL sigbnd(nbnd)
234
235! Add GOCART aerosol specification
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
244!
245! SET FD LEVEL HEIGHTS IN GEOPOTENTAL METERS.
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, &
248 6000.e0,7010.e0/
249!
250! SET MIDPOINT "SIGMA" VALUES FOR ETA BOUNDARY LAYERS.
251 DATA sigbnd / 0.985,0.955,0.925,0.895,0.865,0.835 /
252 DATA petabnd / 15.,45.,75.,105.,135.,165./
253!
254 real :: itprec=-1
255!
256 integer :: ifi_nflight = 0
257 real, allocatable :: ifi_flight_levels(:)
258!
259!-----------------------------------------------------------------------
260 end module ctlblk_mod
integer imdlty
No longer used/supported.
Definition CTLBLK.f:104
real(kind=8) etafld2_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
integer iout
No longer used/supported.
Definition CTLBLK.f:104
integer ncp
No longer used/supported.
Definition CTLBLK.f:104
real(kind=8) mdl2agl_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
real, dimension(:,:), allocatable rbcoords
Arrays that store the coordinates of their elements; used to validate communications; when scattered ...
Definition CTLBLK.f:179
integer nbc
No longer used/supported.
Definition CTLBLK.f:104
integer nfcst
No longer used/supported.
Definition CTLBLK.f:104
integer nrads
No longer used/supported.
Definition CTLBLK.f:104
real(kind=8) surfce2_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
real(kind=8) time_e2out
Initialized as 0, but never used.
Definition CTLBLK.f:219
real(kind=8) eta2p_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
integer nboco
No longer used/supported.
Definition CTLBLK.f:104
integer, dimension(:,:), allocatable ibcoords
Arrays that store the coordinates of their elements; used to validate communications; when scattered ...
Definition CTLBLK.f:177
real(kind=8) calrad_wcloud_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
real(kind=8) mdl2std_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
real(kind=8) run_ifi_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
integer, dimension(:,:), allocatable icoords
Arrays that store the coordinates of their elements; used to validate communications; when scattered ...
Definition CTLBLK.f:176
integer list
No longer used/supported.
Definition CTLBLK.f:104
integer nshde
No longer used/supported.
Definition CTLBLK.f:104
real(kind=8) time_output
Initialized as 0, but never used.
Definition CTLBLK.f:219
integer nradl
No longer used/supported.
Definition CTLBLK.f:104
integer nddamp
No longer used/supported.
Definition CTLBLK.f:104
real(kind=8) fixed_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
real(kind=8) readxml_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
real(kind=8) miscln_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
real(kind=8) mdl2thandpv_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
integer ntstm
No longer used/supported.
Definition CTLBLK.f:104
integer idtad
No longer used/supported.
Definition CTLBLK.f:104
real(kind=8) cldrad_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209
real, dimension(:,:), allocatable rcoords
Arrays that store the coordinates of their elements; used to validate communications; when scattered ...
Definition CTLBLK.f:178
real(kind=8) mdl2sigma_tim
Time to execute named routine; note that ETAFLD2 and ETA2P refer to MDLFLD and MDL2P routines respect...
Definition CTLBLK.f:209