| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_driver.F |
102 |
FIZHI_DRIVER |
_RL rfu(im,jm,lm),rfv(im,jm,lm),rft(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
123 |
FIZHI_DRIVER |
istrip = im*jm |
|
./pkg/fizhi/fizhi_driver.F |
163 |
FIZHI_DRIVER |
. low_level,mid_level,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
180 |
FIZHI_DRIVER |
do i=1,im |
|
./pkg/fizhi/fizhi_driver.F |
186 |
FIZHI_DRIVER |
. low_level,mid_level,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
200 |
FIZHI_DRIVER |
call TURBIO (im,jm,lm,istrip,nymd,nhms,bi,bj,ndturb,nltop, |
|
./pkg/fizhi/fizhi_driver.F |
218 |
FIZHI_DRIVER |
. turbu,turbv,turbt,im,jm,lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_driver.F |
223 |
FIZHI_DRIVER |
call RAYLEIGH(myid,pl,pkl,pkht,surfz,u,v,t,q,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
245 |
FIZHI_DRIVER |
. moistu,moistv,moistt,moistq,cumfric,im,jm,lm,ptop,iras, |
|
./pkg/fizhi/fizhi_driver.F |
51 |
FIZHI_DRIVER |
integer myid,im,jm,lm,bi,bj,ptracer,ntracer |
|
./pkg/fizhi/fizhi_driver.F |
56 |
FIZHI_DRIVER |
_RL xlats(im,jm), xlons(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
57 |
FIZHI_DRIVER |
_RL p(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
58 |
FIZHI_DRIVER |
_RL u(im,jm,lm),v(im,jm,lm),t(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
59 |
FIZHI_DRIVER |
_RL q(im,jm,lm,ntracer) |
|
./pkg/fizhi/fizhi_driver.F |
5 |
FIZHI_DRIVER |
subroutine FIZHI_DRIVER (myid,im,jm,lm,bi,bj,ptracer,ntracer, |
|
./pkg/fizhi/fizhi_driver.F |
60 |
FIZHI_DRIVER |
_RL pl(im,jm,lm),ple(im,jm,lm+1),dpres(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
61 |
FIZHI_DRIVER |
_RL pkht(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_driver.F |
62 |
FIZHI_DRIVER |
_RL pkl(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
63 |
FIZHI_DRIVER |
_RL surfz(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
64 |
FIZHI_DRIVER |
_RL radswt(im,jm), fracland(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
65 |
FIZHI_DRIVER |
integer landtype(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
66 |
FIZHI_DRIVER |
_RL phis_var(im,jm), sea_ice(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
73 |
FIZHI_DRIVER |
_RL lwdt(im,jm,lm),lwdtclr(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
74 |
FIZHI_DRIVER |
_RL swdt(im,jm,lm),swdtclr(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
75 |
FIZHI_DRIVER |
_RL turbu(im,jm,lm),turbv(im,jm,lm),turbt(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
76 |
FIZHI_DRIVER |
_RL turbq(im,jm,lm,ntracer) |
|
./pkg/fizhi/fizhi_driver.F |
77 |
FIZHI_DRIVER |
_RL moistu(im,jm,lm),moistv(im,jm,lm),moistt(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
78 |
FIZHI_DRIVER |
_RL moistq(im,jm,lm,ntracer) |
|
./pkg/fizhi/fizhi_driver.F |
79 |
FIZHI_DRIVER |
_RL chemo3(im,jm,lm),chemq(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
80 |
FIZHI_DRIVER |
_RL albvisdr(im,jm),albvisdf(im,jm),albnirdr(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
81 |
FIZHI_DRIVER |
_RL albnirdf(im,jm),emiss(im,jm,10) |
|
./pkg/fizhi/fizhi_driver.F |
83 |
FIZHI_DRIVER |
_RL radswg(im,jm),swgclr(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
84 |
FIZHI_DRIVER |
_RL fdirpar(im,jm),fdifpar(im,jm),osr(im,jm),osrclr(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
85 |
FIZHI_DRIVER |
_RL tg0(im,jm),radlwg(im,jm),lwgclr(im,jm),st4(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
86 |
FIZHI_DRIVER |
_RL dst4(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
87 |
FIZHI_DRIVER |
_RL dlwdtg(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
88 |
FIZHI_DRIVER |
_RL rainlsp(im,jm),raincon(im,jm),snowfall(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
89 |
FIZHI_DRIVER |
_RL cldtot_lw(im,jm,lm),cldras_lw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
90 |
FIZHI_DRIVER |
_RL cldlsp_lw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
91 |
FIZHI_DRIVER |
_RL lwlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
92 |
FIZHI_DRIVER |
_RL cldtot_sw(im,jm,lm),cldras_sw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
93 |
FIZHI_DRIVER |
_RL cldlsp_sw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
94 |
FIZHI_DRIVER |
_RL swlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
95 |
FIZHI_DRIVER |
_RL qliqavesw(im,jm,lm),qliqavelw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
96 |
FIZHI_DRIVER |
_RL fccavesw(im,jm,lm),fccavelw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
97 |
FIZHI_DRIVER |
_RL qq(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
98 |
FIZHI_DRIVER |
_RL tgz(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
101 |
TRACER_FILL |
_RL d2p(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
113 |
TRACER_FILL |
do i=2,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
128 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
134 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
138 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
146 |
TRACER_FILL |
im1 = im |
|
./pkg/fizhi/fizhi_fillnegs.F |
147 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
154 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
162 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
166 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
174 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
178 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
192 |
TRACER_FILL |
im1 = im-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
193 |
TRACER_FILL |
i = im |
|
./pkg/fizhi/fizhi_fillnegs.F |
194 |
TRACER_FILL |
do ip1=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
269 |
MAXVAL1 |
subroutine MAXVAL1 (q,im,qval,qmax,imax) |
|
./pkg/fizhi/fizhi_fillnegs.F |
289 |
MAXVAL1 |
integer im, i, imax |
|
./pkg/fizhi/fizhi_fillnegs.F |
290 |
MAXVAL1 |
_RL q(im), qmax, qval |
|
./pkg/fizhi/fizhi_fillnegs.F |
293 |
MAXVAL1 |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
58 |
TRACER_FILL |
subroutine TRACER_FILL ( pq,im,jm,lm,dlam,dphi,dp) |
|
./pkg/fizhi/fizhi_fillnegs.F |
84 |
TRACER_FILL |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_fillnegs.F |
85 |
TRACER_FILL |
_RL pq(im,jm,lm),dlam(im),dphi(jm),dp(im,jm,lm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
90 |
TRACER_FILL |
_RL lam(im), phi(jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
95 |
TRACER_FILL |
_RL dxu(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
96 |
TRACER_FILL |
_RL dxv(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
97 |
TRACER_FILL |
_RL dxp(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
98 |
TRACER_FILL |
_RL dyv(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
99 |
TRACER_FILL |
_RL dyp(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
127 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
137 |
GWDRAG |
do i = 1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
145 |
GWDRAG |
do i = 1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
158 |
GWDRAG |
call STRIPIT ( phis_std,std,im*jm,im*jm,istrip,1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
160 |
GWDRAG |
call STRIPIT ( pz,ps,im*jm,im*jm,istrip,1 ,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
161 |
GWDRAG |
call STRIPIT ( uz,us,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
162 |
GWDRAG |
call STRIPIT ( vz,vs,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
163 |
GWDRAG |
call STRIPIT ( tv,ts,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
164 |
GWDRAG |
call STRIPIT ( pl,plstr,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
165 |
GWDRAG |
call STRIPIT ( ple,plestr,im*jm,im*jm,istrip,Lm+1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
166 |
GWDRAG |
call STRIPIT ( dpres,dpresstr,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
167 |
GWDRAG |
call STRIPITINT ( nthin,nthinstr,im*jm,im*jm,istrip,1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
168 |
GWDRAG |
call STRIPITINT ( nbase,nbasestr,im*jm,im*jm,istrip,1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
175 |
GWDRAG |
call PASTIT( dragus,dragu,istrip,im*jm,im*jm,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
176 |
GWDRAG |
call PASTIT( dragvs,dragv,istrip,im*jm,im*jm,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
177 |
GWDRAG |
call PASTIT( dragxs,dragx,istrip,im*jm,im*jm,1 ,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
178 |
GWDRAG |
call PASTIT( dragys,dragy,istrip,im*jm,im*jm,1 ,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
186 |
GWDRAG |
do i = 1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
207 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
216 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
225 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
250 |
GWDRAG |
do i = 1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
256 |
GWDRAG |
do i = 1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
262 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
273 |
GWDRAG |
do i = 1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
279 |
GWDRAG |
do i = 1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
285 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
43 |
GWDRAG |
integer myid,im,jm,Lm,bi,bj,istrip,npcs,imglobal |
|
./pkg/fizhi/fizhi_gwdrag.F |
44 |
GWDRAG |
_RL pz(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
45 |
GWDRAG |
_RL pl(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
46 |
GWDRAG |
_RL ple(im,jm,Lm+1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
47 |
GWDRAG |
_RL dpres(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
48 |
GWDRAG |
_RL pkz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
49 |
GWDRAG |
_RL uz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
50 |
GWDRAG |
_RL vz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
51 |
GWDRAG |
_RL tz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
52 |
GWDRAG |
_RL qz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
53 |
GWDRAG |
_RL phis_var(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
55 |
GWDRAG |
_RL dudt(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
56 |
GWDRAG |
_RL dvdt(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
57 |
GWDRAG |
_RL dtdt(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
5 |
GWDRAG |
. dudt,dvdt,dtdt,im,jm,Lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_gwdrag.F |
61 |
GWDRAG |
_RL tv(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
62 |
GWDRAG |
_RL dragu(im,jm,Lm), dragv(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
63 |
GWDRAG |
_RL dragt(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
64 |
GWDRAG |
_RL dragx(im,jm), dragy(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
65 |
GWDRAG |
_RL sumu(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
66 |
GWDRAG |
integer nthin(im,jm),nbase(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
69 |
GWDRAG |
_RL phis_std(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
84 |
GWDRAG |
_RL tmpdiag(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
99 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_init_veg.F |
100 |
FIZHI_INIT_VEG |
if( (imdata.ne.im) .or. (jmdata.ne.jm) .or. |
|
./pkg/fizhi/fizhi_init_veg.F |
104 |
FIZHI_INIT_VEG |
print *,' Model Res: ',im,'x',jm,' Data Res: ',imdata,'x',jmdata |
|
./pkg/fizhi/fizhi_init_veg.F |
115 |
FIZHI_INIT_VEG |
biglobal=bi+(myXGlobalLo-1)/im |
|
./pkg/fizhi/fizhi_init_veg.F |
118 |
FIZHI_INIT_VEG |
call MDS_BYTESWAPR4(im*jm*maxtyp,veg_32(1,1,1,biglobal,bjglobal)) |
|
./pkg/fizhi/fizhi_init_veg.F |
119 |
FIZHI_INIT_VEG |
call MDS_BYTESWAPI4(im*jm*maxtyp,iveg_32(1,1,1,biglobal,bjglobal)) |
|
./pkg/fizhi/fizhi_init_veg.F |
123 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./pkg/fizhi/fizhi_init_veg.F |
150 |
FIZHI_INIT_VEG |
do i=1,im |
|
./pkg/fizhi/fizhi_init_veg.F |
154 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
170 |
FIZHI_INIT_VEG |
do i=1,im |
|
./pkg/fizhi/fizhi_init_veg.F |
174 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
57 |
FIZHI_INIT_VEG |
integer mythid,im,jm,maxtyp,nchp,Nsx,Nsy,Nxg,Nyg |
|
./pkg/fizhi/fizhi_init_veg.F |
59 |
FIZHI_INIT_VEG |
integer surftype(im,jm,maxtyp,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_init_veg.F |
61 |
FIZHI_INIT_VEG |
_RL tilefrac(im,jm,maxtyp,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_init_veg.F |
62 |
FIZHI_INIT_VEG |
_RL lats(im,jm,nSx,nSy), lons(im,jm,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_veg.F |
69 |
FIZHI_INIT_VEG |
integer*4 iveg_32(im,jm,maxtyp,Nxg,Nyg) |
|
./pkg/fizhi/fizhi_init_veg.F |
6 |
FIZHI_INIT_VEG |
subroutine FIZHI_INIT_VEG(mythid,vegdata,im,jm,Nsx,Nsy,Nxg,Nyg, |
|
./pkg/fizhi/fizhi_init_veg.F |
70 |
FIZHI_INIT_VEG |
real*4 veg_32(im,jm,maxtyp,Nxg,Nyg) |
|
./pkg/fizhi/fizhi_lwrad.F |
110 |
LWRIO |
do i =1,im |
|
./pkg/fizhi/fizhi_lwrad.F |
128 |
LWRIO |
CALL STRIP (OZ,OZL ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
129 |
LWRIO |
CALL STRIP (PLZE,ple ,im*jm,ISTRIP,lm+1 ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
130 |
LWRIO |
CALL STRIP (PLZ ,pl ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
131 |
LWRIO |
CALL STRIP (PKZ ,pk ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
132 |
LWRIO |
CALL STRIP (PKHT,pke ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
133 |
LWRIO |
CALL STRIP (TZ,TZL ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
134 |
LWRIO |
CALL STRIP (qz,SHZL ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
135 |
LWRIO |
CALL STRIP (cldtot,CLRO ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
136 |
LWRIO |
CALL STRIP (cldmxo,CLMO ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
137 |
LWRIO |
CALL STRIP (lwlz,cldlz ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
138 |
LWRIO |
CALL STRIP (tgz,tsurf ,im*jm,ISTRIP,1 ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
140 |
LWRIO |
CALL STRIP (emissivity,emiss,im*jm,ISTRIP,10,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
142 |
LWRIO |
call STRIPITINT (landtype,lwi,im*jm,im*jm,istrip,1,nn) |
|
./pkg/fizhi/fizhi_lwrad.F |
21 |
LWRIO |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
22 |
LWRIO |
_RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
23 |
LWRIO |
_RL dpres(im,jm,lm),pkht(im,jm,lm+1),pkz(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
245 |
LWRIO |
CALL PASTE ( flx (1,lm+1),RADLWG,ISTRIP,im*jm,1,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
246 |
LWRIO |
CALL PASTE ( flxclr(1,lm+1),LWGCLR,ISTRIP,im*jm,1,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
248 |
LWRIO |
CALL PASTE ( sgmt4, st4,ISTRIP,im*jm,1,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
249 |
LWRIO |
CALL PASTE ( dsgmt4,dst4,ISTRIP,im*jm,1,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
24 |
LWRIO |
_RL tz(im,jm,lm),qz(im,jm,lm),oz(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
255 |
LWRIO |
CALL PASTE(flx(1,1),tempor1,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
256 |
LWRIO |
CALL PASTE(flxclr(1,1),tempor2,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
269 |
LWRIO |
CALL PASTE ( tmpstrip ,tmpimjm ,ISTRIP,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
26 |
LWRIO |
_RL emissivity(im,jm,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
270 |
LWRIO |
CALL PASTE ( DTRAD ,DTRADLW ,ISTRIP,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
271 |
LWRIO |
CALL PASTE ( DTRADC,DTRADLWC,ISTRIP,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
272 |
LWRIO |
CALL PASTE ( dtdtg ,dlwdtg ,ISTRIP,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
27 |
LWRIO |
_RL tgz(im,jm),radlwg(im,jm),st4(im,jm),dst4(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
289 |
LWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_lwrad.F |
28 |
LWRIO |
_RL dtradlw(im,jm,lm),dlwdtg (im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
298 |
LWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_lwrad.F |
29 |
LWRIO |
_RL dtradlwc(im,jm,lm),lwgclr(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
307 |
LWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_lwrad.F |
31 |
LWRIO |
_RL cldlw(im,jm,lm),clwmo(im,jm,lm),lwlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
335 |
LWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_lwrad.F |
34 |
LWRIO |
_RL qliqave(im,jm,lm),fccave(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
35 |
LWRIO |
integer landtype(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
41 |
LWRIO |
_RL cldtot (im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
42 |
LWRIO |
_RL cldmxo (im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
70 |
LWRIO |
_RL tmpimjm(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
71 |
LWRIO |
_RL tempor1(im,jm),tempor2(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
77 |
LWRIO |
_RL tmpdiag(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
7 |
LWRIO |
. im,jm,lm, |
|
./pkg/fizhi/fizhi_lwrad.F |
99 |
LWRIO |
do i =1,im |
|
./pkg/fizhi/fizhi_moist.F |
1008 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
1022 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
1041 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
1045 |
MOISTIO |
indx = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
1116 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
1132 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
1149 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
124 |
MOISTIO |
_RL cldlz(istrip,lm), cldwater(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
133 |
MOISTIO |
_RL psubcld (istrip), psubcldg (im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
134 |
MOISTIO |
_RL psubcld_cnt(istrip), psubcldgc(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
148 |
MOISTIO |
_RL tmpdiag(im,jm),tmpdiag2(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
19 |
MOISTIO |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_moist.F |
216 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
225 |
MOISTIO |
DO i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
238 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
23 |
MOISTIO |
_RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1),dpres(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
24 |
MOISTIO |
_RL pkht(im,jm,lm+1),pkl(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
250 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
253 |
MOISTIO |
pblindex(indx) = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
259 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
25 |
MOISTIO |
_RL tz(im,jm,lm),qz(im,jm,lm,ntracerin) |
|
./pkg/fizhi/fizhi_moist.F |
264 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
265 |
MOISTIO |
i = 1+MOD((pblindex(indx)-1),im) |
|
./pkg/fizhi/fizhi_moist.F |
2673 |
CTEI |
subroutine CTEI ( th,q,cldfrc,cldwat,pl,plk,plke,im,lm ) |
|
./pkg/fizhi/fizhi_moist.F |
2675 |
CTEI |
integer im,lm |
|
./pkg/fizhi/fizhi_moist.F |
2676 |
CTEI |
_RL th(im,lm),q(im,lm),plke(im,lm+1),cldwat(im,lm) |
|
./pkg/fizhi/fizhi_moist.F |
2677 |
CTEI |
_RL plk(im,lm),pl(im,lm),cldfrc(im,lm) |
|
./pkg/fizhi/fizhi_moist.F |
2688 |
CTEI |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
26 |
MOISTIO |
_RL uz(im,jm,lm),vz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
273 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
27 |
MOISTIO |
_RL qqz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
281 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
282 |
MOISTIO |
i = 1+MOD((pblindex(indx)-1),im) |
|
./pkg/fizhi/fizhi_moist.F |
28 |
MOISTIO |
_RL dumoist(im,jm,lm),dvmoist(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
296 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
298 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
299 |
MOISTIO |
i = 1+MOD((pblindex(indx)-1),im) |
|
./pkg/fizhi/fizhi_moist.F |
29 |
MOISTIO |
_RL dtmoist(im,jm,lm),dqmoist(im,jm,lm,ntracerin) |
|
./pkg/fizhi/fizhi_moist.F |
309 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
312 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
313 |
MOISTIO |
i = 1+MOD((pblindex(indx)-1),im) |
|
./pkg/fizhi/fizhi_moist.F |
332 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
33 |
MOISTIO |
_RL rainlsp(im,jm),rainconv(im,jm),snowfall(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
353 |
MOISTIO |
CALL STRIP ( pigather, SP ,im*jm,ISTRIP,1 ,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
354 |
MOISTIO |
CALL STRIP ( pkzgather, PLK ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
355 |
MOISTIO |
CALL STRIP ( pkegather, PLKE ,im*jm,ISTRIP,lm+1,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
356 |
MOISTIO |
CALL STRIP ( plzgather, PL ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
357 |
MOISTIO |
CALL STRIP ( plegather, PLE ,im*jm,ISTRIP,lm+1,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
358 |
MOISTIO |
CALL STRIP ( dpgather, dp ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
359 |
MOISTIO |
CALL STRIP ( thgather, TH ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
35 |
MOISTIO |
_RL cldlsp_sw(im,jm,lm),cldras_sw(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
360 |
MOISTIO |
CALL STRIP ( shgather, SHL ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
361 |
MOISTIO |
CALL STRINT( levgather, pbl ,im*jm,ISTRIP,1 ,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
364 |
MOISTIO |
call STRIP ( ugather(1,1,nt), ul(1,1,nt),im*jm,istrip,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
36 |
MOISTIO |
_RL cldtot_sw(im,jm,lm),swlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
38 |
MOISTIO |
_RL cldlsp_lw(im,jm,lm),cldras_lw(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
39 |
MOISTIO |
_RL cldtot_lw(im,jm,lm),lwlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
53 |
MOISTIO |
_RL cldsr(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
59 |
MOISTIO |
_RL cldprs(im,jm),cldtmp(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
60 |
MOISTIO |
_RL cldhi (im,jm),cldlow(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
61 |
MOISTIO |
_RL cldmid(im,jm),totcld(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
622 |
MOISTIO |
call PASTE( CVTH,deltgather,istrip,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
623 |
MOISTIO |
call PASTE( CVQ,delqgather,istrip,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
625 |
MOISTIO |
call PASTE( CVU(1,1,nt),delugather(1,1,nt),istrip,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
633 |
MOISTIO |
call PASTE( cldmas,tmpgather,istrip,im*jm,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
634 |
MOISTIO |
call PASTE(detrain,pkegather,istrip,im*jm,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
635 |
MOISTIO |
call PASTE(psubcld ,psubcldg ,istrip,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
636 |
MOISTIO |
call PASTE(psubcld_cnt,psubcldgc,istrip,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
63 |
MOISTIO |
_RL CLDLS(im,jm,lm) , CPEN(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
642 |
MOISTIO |
CALL STRIP ( thgather,TH ,im*jm,ISTRIP,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
643 |
MOISTIO |
CALL STRIP ( shgather,SHL,im*jm,ISTRIP,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
64 |
MOISTIO |
_RL tmpimjm(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
65 |
MOISTIO |
_RL lsp_new(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
667 |
MOISTIO |
CALL PSTBMP(TMP1(1,L),delqgather(1,L),ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
66 |
MOISTIO |
_RL conv_new(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
672 |
MOISTIO |
CALL PSTBMP(TMP1(1,L),deltgather(1,L),ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
679 |
MOISTIO |
call PASTE(tmp1(1,L),deltrnev(1,L),istrip,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
67 |
MOISTIO |
_RL snow_new(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
684 |
MOISTIO |
call PASTE(tmp1(1,L),delqrnev(1,L),istrip,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
69 |
MOISTIO |
_RL qqcolmin(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
70 |
MOISTIO |
_RL qqcolmax(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
713 |
MOISTIO |
call PASTE ( srcld, cldsr,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
714 |
MOISTIO |
call PASTE ( cldlz,cldwater,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
715 |
MOISTIO |
call PASTE ( clsbth, cldls,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
716 |
MOISTIO |
call PASTE ( clboth, cpen ,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
71 |
MOISTIO |
integer levpbl(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
755 |
MOISTIO |
CALL PASTE (tmp1(1,1), lsp_new,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
756 |
MOISTIO |
CALL PASTE (tmp1(1,2),conv_new,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
757 |
MOISTIO |
CALL PASTE (tmp1(1,3),snow_new,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
758 |
MOISTIO |
CALL PASTE (pcnet,raincgath,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
75 |
MOISTIO |
_RL raincgath(im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
768 |
MOISTIO |
call BACK2GRD ( lsp_new,pblindex, lsp_new,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
769 |
MOISTIO |
call BACK2GRD (conv_new,pblindex,conv_new,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
76 |
MOISTIO |
_RL pigather(im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
770 |
MOISTIO |
call BACK2GRD (snow_new,pblindex,snow_new,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
771 |
MOISTIO |
call BACK2GRD (raincgath,pblindex,raincgath,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
775 |
MOISTIO |
call BACK2GRD (psubcldg ,pblindex,psubcldg ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
776 |
MOISTIO |
call BACK2GRD (psubcldgc,pblindex,psubcldgc,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
77 |
MOISTIO |
_RL thgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
781 |
MOISTIO |
call BACK2GRD (deltgather(1,L),pblindex, dtmoist(1,1,L) ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
782 |
MOISTIO |
call BACK2GRD (delqgather(1,L),pblindex, dqmoist(1,1,L,1),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
783 |
MOISTIO |
call BACK2GRD ( cpen(1,1,L),pblindex, cpen(1,1,L) ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
784 |
MOISTIO |
call BACK2GRD ( cldls(1,1,L),pblindex, cldls(1,1,L) ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
785 |
MOISTIO |
call BACK2GRD (cldwater(1,1,L),pblindex,cldwater(1,1,L) ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
786 |
MOISTIO |
call BACK2GRD ( pkzgather(1,L),pblindex, pkzgather(1,L) ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
78 |
MOISTIO |
_RL shgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
791 |
MOISTIO |
. tmpgather(1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
793 |
MOISTIO |
. pkegather(1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
795 |
MOISTIO |
. deltrnev(1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
797 |
MOISTIO |
. delqrnev(1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
799 |
MOISTIO |
. cldsr(1,1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
79 |
MOISTIO |
_RL pkzgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
807 |
MOISTIO |
. dqmoist(1,1,L,ptracer+nt),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
80 |
MOISTIO |
_RL pkegather(im*jm,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
817 |
MOISTIO |
. dumoist(1,1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
819 |
MOISTIO |
. dvmoist(1,1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
81 |
MOISTIO |
_RL plzgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
824 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
82 |
MOISTIO |
_RL plegather(im*jm,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
830 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
83 |
MOISTIO |
_RL dpgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
84 |
MOISTIO |
_RL tmpgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
859 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
85 |
MOISTIO |
_RL deltgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
86 |
MOISTIO |
_RL delqgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
872 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
873 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
87 |
MOISTIO |
_RL ugather(im*jm,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
886 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
88 |
MOISTIO |
_RL delugather(im*jm,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
899 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
89 |
MOISTIO |
_RL deltrnev(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
90 |
MOISTIO |
_RL delqrnev(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
912 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
925 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
926 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
939 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
93 |
MOISTIO |
integer pblindex(im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
940 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
94 |
MOISTIO |
integer levgather(im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
953 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
954 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
967 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
968 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
980 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
992 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
993 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
9 |
MOISTIO |
. im,jm,lm,ptop, |
|
./pkg/fizhi/fizhi_rayleigh.F |
104 |
RAYLEIGH |
do i=1,im |
|
./pkg/fizhi/fizhi_rayleigh.F |
113 |
RAYLEIGH |
do i=1,im |
|
./pkg/fizhi/fizhi_rayleigh.F |
122 |
RAYLEIGH |
do i=1,im |
|
./pkg/fizhi/fizhi_rayleigh.F |
38 |
RAYLEIGH |
integer myid,im,jm,lm,bi,bj |
|
./pkg/fizhi/fizhi_rayleigh.F |
39 |
RAYLEIGH |
_RL zsurf(im,jm),pres(im,jm,lm),pkap(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
40 |
RAYLEIGH |
_RL pekap(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_rayleigh.F |
41 |
RAYLEIGH |
_RL u(im,jm,lm),v(im,jm,lm),t(im,jm,lm),s(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
42 |
RAYLEIGH |
_RL rfu(im,jm,lm),rfv(im,jm,lm),rft(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
45 |
RAYLEIGH |
_RL rf(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
46 |
RAYLEIGH |
_RL z(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
47 |
RAYLEIGH |
_RL dz(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
52 |
RAYLEIGH |
_RL tmpdiag(im,jm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
5 |
RAYLEIGH |
subroutine RAYLEIGH(myid,pres,pkap,pekap,zsurf,u,v,t,s,im,jm,lm, |
|
./pkg/fizhi/fizhi_rayleigh.F |
66 |
RAYLEIGH |
do i=1,im |
|
./pkg/fizhi/fizhi_rayleigh.F |
74 |
RAYLEIGH |
do i=1,im |
|
./pkg/fizhi/fizhi_rayleigh.F |
81 |
RAYLEIGH |
do i=1,im |
|
./pkg/fizhi/fizhi_rayleigh.F |
89 |
RAYLEIGH |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
1012 |
CLDSCALE |
integer i,j,k,im,it,ia,kk |
|
./pkg/fizhi/fizhi_swrad.F |
1100 |
CLDSCALE |
im=int(fm+1.5) |
|
./pkg/fizhi/fizhi_swrad.F |
1104 |
CLDSCALE |
im=max(im,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1108 |
CLDSCALE |
im=min(im,nm-1) |
|
./pkg/fizhi/fizhi_swrad.F |
1112 |
CLDSCALE |
fm=fm-float(im-1) |
|
./pkg/fizhi/fizhi_swrad.F |
1120 |
CLDSCALE |
xai= (-caib(im-1,it,ia)*(1.-fm)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1121 |
CLDSCALE |
* caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm) |
|
./pkg/fizhi/fizhi_swrad.F |
1123 |
CLDSCALE |
xai=xai+(-caib(im,it-1,ia)*(1.-ft)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1124 |
CLDSCALE |
* caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft) |
|
./pkg/fizhi/fizhi_swrad.F |
1126 |
CLDSCALE |
xai=xai+(-caib(im,it,ia-1)*(1.-fa)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1127 |
CLDSCALE |
* caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa) |
|
./pkg/fizhi/fizhi_swrad.F |
1129 |
CLDSCALE |
xai= xai-2.*caib(im,it,ia) |
|
./pkg/fizhi/fizhi_swrad.F |
116 |
SWRIO |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
137 |
SWRIO |
CALL ASTRO ( 20040321, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
141 |
SWRIO |
CALL ASTRO ( 20040321, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
143 |
SWRIO |
CALL ASTRO ( NYMD, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
147 |
SWRIO |
CALL ASTRO ( NYMD2, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
151 |
SWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_swrad.F |
167 |
SWRIO |
do i =1,im |
|
./pkg/fizhi/fizhi_swrad.F |
179 |
SWRIO |
do i =1,im |
|
./pkg/fizhi/fizhi_swrad.F |
190 |
SWRIO |
do i =1,im |
|
./pkg/fizhi/fizhi_swrad.F |
203 |
SWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_swrad.F |
20 |
SWRIO |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_swrad.F |
2204 |
CLDFLX |
integer i,j,k,ih,im,is |
|
./pkg/fizhi/fizhi_swrad.F |
223 |
SWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_swrad.F |
2277 |
CLDFLX |
do 10 im=1,2 |
|
./pkg/fizhi/fizhi_swrad.F |
2282 |
CLDFLX |
denm = ts(i,j,k,im)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2283 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2284 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2285 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2286 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2287 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2288 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
22 |
SWRIO |
_RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1),dpres(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
2330 |
CLDFLX |
do 20 im=1,2 |
|
./pkg/fizhi/fizhi_swrad.F |
2335 |
CLDFLX |
denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2336 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2337 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,im)*rxa(i,j,k+1,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2338 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2339 |
CLDFLX |
* *rxa(i,j,k+1,im,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2372 |
CLDFLX |
do 100 im=1,2 |
|
./pkg/fizhi/fizhi_swrad.F |
2376 |
CLDFLX |
if(im.eq.1) then |
|
./pkg/fizhi/fizhi_swrad.F |
23 |
SWRIO |
_RL pkht(im,jm,lm+1),pkz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
241 |
SWRIO |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
2425 |
CLDFLX |
denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2426 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2427 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2428 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2429 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2430 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2431 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2441 |
CLDFLX |
denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is)) |
|
./pkg/fizhi/fizhi_swrad.F |
2442 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2443 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2444 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2445 |
CLDFLX |
* *rxa(i,j,k+1,im,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2459 |
CLDFLX |
denm= 1./(1.- rxa(i,j,k,im,is)*rsa(i,j,k-1,ih,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2460 |
CLDFLX |
fdndir(i,j)= tda(i,j,k-1,ih,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2461 |
CLDFLX |
xx = tda(i,j,k-1,ih,im)*rra(i,j,k,im,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2462 |
CLDFLX |
fdndif(i,j)= (xx*rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2463 |
CLDFLX |
fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2471 |
CLDFLX |
flxdn(i,j,1)=1.0-rra(i,j,1,im,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2480 |
CLDFLX |
if(ih.eq.1 .and. im.eq.1 .and. is.eq.1) then |
|
./pkg/fizhi/fizhi_swrad.F |
24 |
SWRIO |
_RL tz(im,jm,lm),qz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
252 |
SWRIO |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
25 |
SWRIO |
_RL oz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
275 |
SWRIO |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
27 |
SWRIO |
_RL albvisdr(im,jm),albvisdf(im,jm),albnirdr(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
28 |
SWRIO |
_RL albnirdf(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
29 |
SWRIO |
_RL radswg(im,jm),swgclr(im,jm),fdifpar(im,jm),fdirpar(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
305 |
SWRIO |
call OPTHK(tdry,plz,plze,swlz,cldtot,cldmxo,landtype,im,jm,lm, |
|
./pkg/fizhi/fizhi_swrad.F |
30 |
SWRIO |
_RL osr(im,jm),osrclr(im,jm),dtradsw(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
310 |
SWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_swrad.F |
31 |
SWRIO |
_RL dtswclr(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
320 |
SWRIO |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
332 |
SWRIO |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
33 |
SWRIO |
_RL cldsw(im,jm,lm),cswmo(im,jm,lm),swlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
352 |
SWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_swrad.F |
36 |
SWRIO |
_RL qliqave(im,jm,lm),fccave(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
371 |
SWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_swrad.F |
37 |
SWRIO |
integer landtype(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
38 |
SWRIO |
_RL xlats(im,jm),xlons(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
390 |
SWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_swrad.F |
417 |
SWRIO |
CALL STRIP ( zenith,COSZ,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
419 |
SWRIO |
CALL STRIP ( plze, ple ,im*jm,ISTRIP,lm+1,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
420 |
SWRIO |
CALL STRIP ( pkz , pk ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
421 |
SWRIO |
CALL STRIP ( dpres,dpstrip,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
422 |
SWRIO |
CALL STRIP ( tdry, tzl ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
423 |
SWRIO |
CALL STRIP ( qz , qzl ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
424 |
SWRIO |
CALL STRIP ( oz , ozl ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
425 |
SWRIO |
CALL STRIP ( tau , taul ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
427 |
SWRIO |
CALL STRIP ( albvisdr,albuvdr,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
428 |
SWRIO |
CALL STRIP ( albvisdf,albuvdf,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
429 |
SWRIO |
CALL STRIP ( albnirdr,albirdr,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
430 |
SWRIO |
CALL STRIP ( albnirdf,albirdf,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
432 |
SWRIO |
call STRIP ( cldtot,clro,im*jm,istrip,lm,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
479 |
SWRIO |
call PASTE ( dtsw , dtradsw ,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
480 |
SWRIO |
call PASTE ( dtswc, dtswclr ,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
482 |
SWRIO |
call PASTE ( flux (1,1),osr ,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
483 |
SWRIO |
call PASTE ( fluxclr(1,1),osrclr,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
485 |
SWRIO |
call PASTE ( flux (1,lm+1),radswg,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
486 |
SWRIO |
call PASTE ( fluxclr(1,lm+1),swgclr,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
488 |
SWRIO |
call PASTE ( dirpar,fdirpar,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
489 |
SWRIO |
call PASTE ( difpar,fdifpar,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
502 |
SWRIO |
call PASTE ( tstrip,albedo,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
50 |
SWRIO |
_RL tdry(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
513 |
SWRIO |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
51 |
SWRIO |
_RL TEMP1(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
52 |
SWRIO |
_RL TEMP2(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
538 |
SWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_swrad.F |
53 |
SWRIO |
_RL zenith (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
547 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./pkg/fizhi/fizhi_swrad.F |
54 |
SWRIO |
_RL cldtot (im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
55 |
SWRIO |
_RL cldmxo (im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
56 |
SWRIO |
_RL totcld (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
579 |
OPTHK |
integer im,jm,lm,i,j,L |
|
./pkg/fizhi/fizhi_swrad.F |
57 |
SWRIO |
_RL cldlow (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
581 |
OPTHK |
_RL tl(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
582 |
OPTHK |
_RL pl(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
583 |
OPTHK |
_RL ple(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_swrad.F |
584 |
OPTHK |
_RL lz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
585 |
OPTHK |
_RL cf(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
586 |
OPTHK |
_RL cfm(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
587 |
OPTHK |
_RL tau(im,jm,lm,3) |
|
./pkg/fizhi/fizhi_swrad.F |
588 |
OPTHK |
integer lwi(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
58 |
SWRIO |
_RL cldmid (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
597 |
OPTHK |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
59 |
SWRIO |
_RL cldhi (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
60 |
SWRIO |
_RL taulow (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
61 |
SWRIO |
_RL taumid (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
62 |
SWRIO |
_RL tauhi (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
63 |
SWRIO |
_RL tautype(im,jm,lm,3) |
|
./pkg/fizhi/fizhi_swrad.F |
64 |
SWRIO |
_RL tau(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
65 |
SWRIO |
_RL albedo(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
6 |
SWRIO |
. low_level,mid_level,im,jm,lm, |
|
./pkg/fizhi/fizhi_swrad.F |
95 |
SWRIO |
_RL tmpdiag(im,jm),tmpdiag2(im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
100 |
TURBIO |
integer im,jm,nlay,istrip,nymd,nhms,bi,bj,ndturb,nltop |
|
./pkg/fizhi/fizhi_turb.F |
108 |
TURBIO |
_RL pz(im*jm,1),uz(im*jm,1,nlay),vz(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
109 |
TURBIO |
_RL tz(im*jm,1,nlay),qz(im*jm,1,nlay,ntracers) |
|
./pkg/fizhi/fizhi_turb.F |
110 |
TURBIO |
_RL plz(im*jm,1,nlay),plze(im*jm,1,nlay+1),dpres(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
111 |
TURBIO |
_RL pkht(im*jm,1,nlay+1),pkz(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
116 |
TURBIO |
_RL tgz(im*jm,1),fracland(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
117 |
TURBIO |
integer landtype(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
123 |
TURBIO |
_RL alai(nchp),agrn(nchp),thkz(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
1242 |
TURBIO |
. duturb(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1244 |
TURBIO |
. dvturb(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1246 |
TURBIO |
. dtturb(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1249 |
TURBIO |
. dqturb(1,1,L,nt),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1252 |
TURBIO |
. qqgrid(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1255 |
TURBIO |
. fcctmp(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1257 |
TURBIO |
. qliqtmp(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1262 |
TURBIO |
call CTEI ( tz,qz,fcctmp,qliqtmp,plz,pkz,pkht,im*jm,nlay ) |
|
./pkg/fizhi/fizhi_turb.F |
1309 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
132 |
TURBIO |
_RL duturb(im*jm,1,nlay),dvturb(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
133 |
TURBIO |
_RL dtturb(im*jm,1,nlay),dqturb(im*jm,1,nlay,ntracers) |
|
./pkg/fizhi/fizhi_turb.F |
134 |
TURBIO |
_RL st4(im*jm,1),dst4(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
135 |
TURBIO |
_RL radswg(im*jm,1),radswt(im*jm,1),radlwg(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
136 |
TURBIO |
_RL fdifpar(im*jm,1),fdirpar(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
137 |
TURBIO |
_RL rainlsp(im*jm,1),rainconv(im*jm,1),snowfall(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
138 |
TURBIO |
_RL tempref (im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
143 |
TURBIO |
_RL qliqavesw(im*jm,1,nlay),qliqavelw(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
144 |
TURBIO |
_RL fccavelw (im*jm,1,nlay),fccavesw (im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
145 |
TURBIO |
_RL qqgrid (im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
164 |
TURBIO |
_RL qliqtmp(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
165 |
TURBIO |
_RL fcctmp(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
166 |
TURBIO |
_RL tmpdiag(im*jm,1), tmpFac |
|
./pkg/fizhi/fizhi_turb.F |
167 |
TURBIO |
_RL thtgz(im*jm) |
|
./pkg/fizhi/fizhi_turb.F |
305 |
TURBIO |
ijall = im * jm |
|
./pkg/fizhi/fizhi_turb.F |
376 |
TURBIO |
call GRD2MSC(pz(1,1),im,jm,igrd,pmsc,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
378 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
383 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
387 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
391 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
395 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
399 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
403 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
404 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
405 |
TURBIO |
call GRD2MSC(rainlsp,im,jm,igrd,lsprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
406 |
TURBIO |
call GRD2MSC(rainconv,im,jm,igrd,cnvprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
407 |
TURBIO |
call GRD2MSC(snowfall,im,jm,igrd,snowprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
482 |
TURBIO |
call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
5 |
TURBIO |
subroutine TURBIO (im,jm,nlay,istrip,nymd,nhms,bi,bj |
|
./pkg/fizhi/fizhi_utils.F |
10 |
NO PROCEDURE |
do i=1,im |
|
./pkg/fizhi/fizhi_utils.F |
5 |
NO PROCEDURE |
function minval (q,im) |
|
./pkg/fizhi/fizhi_utils.F |
655 |
GRD2MSC |
integer im,jm,mxchps,nchp |
|
./pkg/fizhi/fizhi_utils.F |
680 |
MSC2GRD |
integer im,jm,mxchps,nchp |
|
./pkg/fizhi/fizhi_utils.F |
7 |
NO PROCEDURE |
integer im, i |
|
./pkg/fizhi/fizhi_utils.F |
8 |
NO PROCEDURE |
_RL q(im), minval |
|
./pkg/fizhi/fizhi_utils.F |
904 |
PKAPPA |
subroutine PKAPPA (im,jm,lm,ple,pkle,pkz) |
|
./pkg/fizhi/fizhi_utils.F |
919 |
PKAPPA |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_utils.F |
920 |
PKAPPA |
_RL ple(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_utils.F |
921 |
PKAPPA |
_RL pkle(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_utils.F |
922 |
PKAPPA |
_RL pkz(im,jm,lm) |
|
./pkg/fizhi/fizhi_utils.F |
931 |
PKAPPA |
do i = 1,im |
|
./pkg/fizhi/slprs.F |
21 |
SLPRS |
integer im,jm,lm |
|
./pkg/fizhi/slprs.F |
22 |
SLPRS |
_RL SLP (im*jm) |
|
./pkg/fizhi/slprs.F |
23 |
SLPRS |
_RL PHIS (im*jm), THZ (im*jm,lm) |
|
./pkg/fizhi/slprs.F |
24 |
SLPRS |
_RL lwmask(im*jm) |
|
./pkg/fizhi/slprs.F |
25 |
SLPRS |
_RL ple(im*jm,lm+1) |
|
./pkg/fizhi/slprs.F |
33 |
SLPRS |
_RL tm (im*jm) |
|
./pkg/fizhi/slprs.F |
34 |
SLPRS |
integer Ltop (im*jm) |
|
./pkg/fizhi/slprs.F |
43 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/slprs.F |
49 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/slprs.F |
57 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/slprs.F |
5 |
SLPRS |
subroutine SLPRS (PHIS,PLE,THZ,lwmask,im,jm,lm,SLP) |
|
./pkg/fizhi/slprs.F |
65 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/update_chemistry_exports.F |
111 |
INTERP_CHEMISTRY |
. qz,plz,xlat,im,jm,lm,nSx,nSy,bi,bj,ozrad,qzrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
121 |
INTERP_CHEMISTRY |
integer im,jm,lm |
|
./pkg/fizhi/update_chemistry_exports.F |
122 |
INTERP_CHEMISTRY |
_RL qz(im,jm,lm),plz(im,jm,lm) |
|
./pkg/fizhi/update_chemistry_exports.F |
123 |
INTERP_CHEMISTRY |
_RL xlat(im,jm) |
|
./pkg/fizhi/update_chemistry_exports.F |
124 |
INTERP_CHEMISTRY |
_RL ozrad(im,jm,lm,nSx,nSy) |
|
./pkg/fizhi/update_chemistry_exports.F |
125 |
INTERP_CHEMISTRY |
_RL qzrad(im,jm,lm,nSx,nSy) |
|
./pkg/fizhi/update_chemistry_exports.F |
131 |
INTERP_CHEMISTRY |
call INTERP_QZ (stratq,nwatlevs,nwatlats,watlevs,watlats,im*jm, |
|
./pkg/fizhi/update_chemistry_exports.F |
133 |
INTERP_CHEMISTRY |
call INTERP_OZ (ozone ,nozlevs,nozlats,ozlevs,ozlats,im*jm, |
|
./pkg/fizhi/update_earth_exports.F |
1010 |
GETEMISS |
do i = 1,im |
|
./pkg/fizhi/update_earth_exports.F |
1015 |
GETEMISS |
& nchptot,fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
1017 |
GETEMISS |
do i = 1,im |
|
./pkg/fizhi/update_earth_exports.F |
1205 |
GET_LANDFRAC |
subroutine GET_LANDFRAC(im,jm,nSx,nSy,bi,bj,maxtyp,surftype, |
|
./pkg/fizhi/update_earth_exports.F |
1214 |
GET_LANDFRAC |
integer im,jm,nSx,nSy,bi,bj,maxtyp |
|
./pkg/fizhi/update_earth_exports.F |
1215 |
GET_LANDFRAC |
integer surftype(im,jm,maxtyp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
1216 |
GET_LANDFRAC |
_RL tilefrac(im,jm,maxtyp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
1217 |
GET_LANDFRAC |
_RL frac(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
1222 |
GET_LANDFRAC |
do i=1,im |
|
./pkg/fizhi/update_earth_exports.F |
1229 |
GET_LANDFRAC |
do i=1,im |
|
./pkg/fizhi/update_earth_exports.F |
812 |
GETALB |
subroutine GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm, |
|
./pkg/fizhi/update_earth_exports.F |
854 |
GETALB |
integer sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
855 |
GETALB |
_RL cosz(im,jm),fraci(im,jm),fracg(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
859 |
GETALB |
_RL albvr(im,jm,nSx,nSy),albvf(im,jm,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
860 |
GETALB |
_RL albnr(im,jm,nSx,nSy),albnf(im,jm,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
871 |
GETALB |
_RL alboc(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
875 |
GETALB |
_RL tmpij(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
890 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd,zenith,nchp,nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
905 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
918 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
930 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
942 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
952 |
GETEMISS |
subroutine GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
983 |
GETEMISS |
integer im,jm,nchp,nchptot,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
984 |
GETEMISS |
_RL fracg(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
989 |
GETEMISS |
_RL emiss(im,jm,10,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
992 |
GETEMISS |
_RL tmpij(im,jm) |
|
./pkg/fizhi/update_ocean_exports.F |
625 |
BCDATA |
subroutine BCDATA (iunit,im,jm,nrec1,nrec2,field1,field2) |
|
./pkg/fizhi/update_ocean_exports.F |
647 |
BCDATA |
integer iunit,im,jm,nrec1,nrec2 |
|
./pkg/fizhi/update_ocean_exports.F |
649 |
BCDATA |
_RL field1(im,jm) |
|
./pkg/fizhi/update_ocean_exports.F |
650 |
BCDATA |
_RL field2(im,jm) |
|
./pkg/fizhi/update_ocean_exports.F |
653 |
BCDATA |
real*4 f1(im,jm), f2(im,jm) |
|
./pkg/fizhi/update_ocean_exports.F |
660 |
BCDATA |
call MDS_BYTESWAPR4( im*jm, f1) |
|
./pkg/fizhi/update_ocean_exports.F |
661 |
BCDATA |
call MDS_BYTESWAPR4( im*jm, f2) |
|
./pkg/fizhi/update_ocean_exports.F |
664 |
BCDATA |
do i=1,im |
|
./pkg/fizhi/update_ocean_exports.F |
673 |
BCHEADER |
. cname, cdscrip, im, jm, lat0, lon0, ndatebc, |
|
./pkg/fizhi/update_ocean_exports.F |
706 |
BCHEADER |
integer im,jm,ndatebc,nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
733 |
BCHEADER |
im = im_32 |
|
./pkg/seaice/lsr.F |
48 |
LSR |
INTEGER i, j, m, bi, bj, j1, j2, im, jm |
|
./pkg/seaice/seaice_lsr.F |
57 |
SEAICE_LSR |
INTEGER i, j, k, m, bi, bj, j1, j2, im, jm |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
113 |
FIZHI_INIT_VEG |
do i=1,im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
117 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
57 |
FIZHI_INIT_VEG |
integer mythid,im,jm,maxtyp,nchp,Nsx,Nsy,Nxg,Nyg |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
59 |
FIZHI_INIT_VEG |
integer surftype(im,jm,maxtyp,Nsx,Nsy) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
61 |
FIZHI_INIT_VEG |
_RL tilefrac(im,jm,maxtyp,Nsx,Nsy) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
62 |
FIZHI_INIT_VEG |
_RL lats(im,jm,nSx,nSy), lons(im,jm,nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
6 |
FIZHI_INIT_VEG |
subroutine FIZHI_INIT_VEG(mythid,vegdata,im,jm,Nsx,Nsy,Nxg,Nyg, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
72 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
81 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
120 |
FIZHI_INIT_VEG |
do i=1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
124 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
140 |
FIZHI_INIT_VEG |
do i=1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
144 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
57 |
FIZHI_INIT_VEG |
integer mythid,im,jm,maxtyp,nchp,Nsx,Nsy,Nxg,Nyg |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
59 |
FIZHI_INIT_VEG |
integer surftype(im,jm,maxtyp,Nsx,Nsy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
61 |
FIZHI_INIT_VEG |
_RL tilefrac(im,jm,maxtyp,Nsx,Nsy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
62 |
FIZHI_INIT_VEG |
_RL lats(im,jm,nSx,nSy), lons(im,jm,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
6 |
FIZHI_INIT_VEG |
subroutine FIZHI_INIT_VEG(mythid,vegdata,im,jm,Nsx,Nsy,Nxg,Nyg, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
77 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
93 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
12 |
DIAGNOSTICS_INTERP_VERT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
48 |
DIAGNOSTICS_INTERP_VERT |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_out.F |
333 |
DIAGNOSTICS_OUT |
im = mdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
334 |
DIAGNOSTICS_OUT |
IF (mate.GT.0) im = im + kdiag(mate)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
335 |
DIAGNOSTICS_OUT |
IF (mVec.GT.0) im = im + kdiag(mVec)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
390 |
DIAGNOSTICS_OUT |
IF ( im.GT.0 .AND. ndiag(MAX(1,im),1,1).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
413 |
DIAGNOSTICS_OUT |
I ndId,mate,ip,im,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
425 |
DIAGNOSTICS_OUT |
I ndId,mate,ip,im,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
439 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
452 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
69 |
DIAGNOSTICS_OUT |
INTEGER md, ndId, ip, im |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
12 |
DIAGNOSTICS_SUM_LEVELS |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
46 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_summary.F |
148 |
DIAGNOSTICS_SUMMARY |
im = mdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
149 |
DIAGNOSTICS_SUMMARY |
IF (im.NE.0) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
152 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
209 |
DIAGNOSTICS_SUMMARY |
im = mSdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
210 |
DIAGNOSTICS_SUMMARY |
IF (im.NE.0) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
214 |
DIAGNOSTICS_SUMMARY |
& qSdiag(0,0,im, 1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
33 |
DIAGNOSTICS_SUMMARY |
INTEGER md, ld, ipt, im |
|
./pkg/diagnostics/diagnostics_utils.F |
24 |
GETDIAG |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
48 |
GETDIAG |
INTEGER ndId, mate, ip, im |
|
./pkg/diagnostics/diagnostics_utils.F |
96 |
GETDIAG |
ipCt = im + levCt - 1 |
|
./pkg/diagnostics/diagstats_ascii_out.F |
41 |
DIAGSTATS_ASCII_OUT |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_ascii_out.F |
42 |
DIAGSTATS_ASCII_OUT |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
|
./pkg/diagnostics/diagstats_calc.F |
102 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
105 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
131 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
134 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
161 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
164 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
190 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
193 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
221 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
224 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
251 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
254 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
282 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
285 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
312 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
315 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
77 |
DIAGSTATS_CALC |
INTEGER im, ix |
|
./pkg/diagnostics/diagstats_calc.F |
82 |
DIAGSTATS_CALC |
im = nStats - 1 |
|
./pkg/diagnostics/diagstats_global.F |
121 |
DIAGSTATS_GLOBAL |
tmpMin = -qtmp1(im,k) |
|
./pkg/diagnostics/diagstats_global.F |
126 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = -tmpMin |
|
./pkg/diagnostics/diagstats_global.F |
148 |
DIAGSTATS_GLOBAL |
qtmp1(im,0) = MIN(qtmp1(im,0),qtmp1(im,k)) |
|
./pkg/diagnostics/diagstats_global.F |
47 |
DIAGSTATS_GLOBAL |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_global.F |
48 |
DIAGSTATS_GLOBAL |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
|
./pkg/diagnostics/diagstats_global.F |
84 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = MIN( qtmp1(im,k),qSdiag(im,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_local.F |
226 |
DIAGSTATS_LOCAL |
statFld(im,n) = statLoc(im) |
|
./pkg/diagnostics/diagstats_local.F |
229 |
DIAGSTATS_LOCAL |
statFld(im,n) = MIN( statFld(im,n), statLoc(im) ) |
|
./pkg/diagnostics/diagstats_local.F |
85 |
DIAGSTATS_LOCAL |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_local.F |
86 |
DIAGSTATS_LOCAL |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
53 |
DIAGSTATS_MNC_OUT |
INTEGER im, ix, iv, ist |
|
./pkg/diagnostics/diagstats_mnc_out.F |
54 |
DIAGSTATS_MNC_OUT |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |