| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_driver.F |
100 |
FIZHI_DRIVER |
_RL tgz(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
104 |
FIZHI_DRIVER |
_RL rfu(im,jm,lm),rfv(im,jm,lm),rft(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
125 |
FIZHI_DRIVER |
istrip = im*jm |
|
./pkg/fizhi/fizhi_driver.F |
165 |
FIZHI_DRIVER |
& low_level,mid_level,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
182 |
FIZHI_DRIVER |
do i=1,im |
|
./pkg/fizhi/fizhi_driver.F |
188 |
FIZHI_DRIVER |
& low_level,mid_level,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
202 |
FIZHI_DRIVER |
call TURBIO (im,jm,lm,istrip,nymd,nhms,bi,bj, |
|
./pkg/fizhi/fizhi_driver.F |
221 |
FIZHI_DRIVER |
& turbu,turbv,turbt,im,jm,lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_driver.F |
226 |
FIZHI_DRIVER |
call RAYLEIGH(myid,pl,pkl,pkht,surfz,u,v,t,q,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
248 |
FIZHI_DRIVER |
& moistu,moistv,moistt,moistq,cumfric,im,jm,lm,ptop,iras, |
|
./pkg/fizhi/fizhi_driver.F |
52 |
FIZHI_DRIVER |
INTEGER myid,im,jm,lm,bi,bj,ptracer,ntracer |
|
./pkg/fizhi/fizhi_driver.F |
58 |
FIZHI_DRIVER |
_RL xlats(im,jm), xlons(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
59 |
FIZHI_DRIVER |
_RL p(im,jm) |
|
./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 u(im,jm,lm),v(im,jm,lm),t(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
61 |
FIZHI_DRIVER |
_RL q(im,jm,lm,ntracer) |
|
./pkg/fizhi/fizhi_driver.F |
62 |
FIZHI_DRIVER |
_RL pl(im,jm,lm),ple(im,jm,lm+1),dpres(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
63 |
FIZHI_DRIVER |
_RL pkht(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_driver.F |
64 |
FIZHI_DRIVER |
_RL pkl(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
65 |
FIZHI_DRIVER |
_RL surfz(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
66 |
FIZHI_DRIVER |
_RL radswt(im,jm), fracland(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
67 |
FIZHI_DRIVER |
INTEGER landtype(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
68 |
FIZHI_DRIVER |
_RL phis_var(im,jm), sea_ice(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
75 |
FIZHI_DRIVER |
_RL lwdt(im,jm,lm),lwdtclr(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
76 |
FIZHI_DRIVER |
_RL swdt(im,jm,lm),swdtclr(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
77 |
FIZHI_DRIVER |
_RL turbu(im,jm,lm),turbv(im,jm,lm),turbt(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
78 |
FIZHI_DRIVER |
_RL turbq(im,jm,lm,ntracer) |
|
./pkg/fizhi/fizhi_driver.F |
79 |
FIZHI_DRIVER |
_RL moistu(im,jm,lm),moistv(im,jm,lm),moistt(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
80 |
FIZHI_DRIVER |
_RL moistq(im,jm,lm,ntracer) |
|
./pkg/fizhi/fizhi_driver.F |
81 |
FIZHI_DRIVER |
_RL chemo3(im,jm,lm),chemq(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
82 |
FIZHI_DRIVER |
_RL albvisdr(im,jm),albvisdf(im,jm),albnirdr(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
83 |
FIZHI_DRIVER |
_RL albnirdf(im,jm),emiss(im,jm,10) |
|
./pkg/fizhi/fizhi_driver.F |
85 |
FIZHI_DRIVER |
_RL radswg(im,jm),swgclr(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
86 |
FIZHI_DRIVER |
_RL fdirpar(im,jm),fdifpar(im,jm),osr(im,jm),osrclr(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
87 |
FIZHI_DRIVER |
_RL tg0(im,jm),radlwg(im,jm),lwgclr(im,jm),st4(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
88 |
FIZHI_DRIVER |
_RL dst4(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
89 |
FIZHI_DRIVER |
_RL dlwdtg(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
90 |
FIZHI_DRIVER |
_RL rainlsp(im,jm),raincon(im,jm),snowfall(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
91 |
FIZHI_DRIVER |
_RL cldtot_lw(im,jm,lm),cldras_lw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
92 |
FIZHI_DRIVER |
_RL cldlsp_lw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
93 |
FIZHI_DRIVER |
_RL lwlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
94 |
FIZHI_DRIVER |
_RL cldtot_sw(im,jm,lm),cldras_sw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
95 |
FIZHI_DRIVER |
_RL cldlsp_sw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
96 |
FIZHI_DRIVER |
_RL swlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
97 |
FIZHI_DRIVER |
_RL qliqavesw(im,jm,lm),qliqavelw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
98 |
FIZHI_DRIVER |
_RL fccavesw(im,jm,lm),fccavelw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
99 |
FIZHI_DRIVER |
_RL qq(im,jm,lm) |
|
./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 |
109 |
FIZHI_INIT_VEG |
if( (imdata.ne.im) .or. (jmdata.ne.jm) .or. |
|
./pkg/fizhi/fizhi_init_veg.F |
113 |
FIZHI_INIT_VEG |
print *,' Model Res: ',im,'x',jm,' Data Res: ',imdata,'x',jmdata |
|
./pkg/fizhi/fizhi_init_veg.F |
124 |
FIZHI_INIT_VEG |
biglobal=bi+(myXGlobalLo-1)/im |
|
./pkg/fizhi/fizhi_init_veg.F |
127 |
FIZHI_INIT_VEG |
CALL MDS_BYTESWAPR4( im*jm*maxtyp, |
|
./pkg/fizhi/fizhi_init_veg.F |
129 |
FIZHI_INIT_VEG |
CALL MDS_BYTESWAPI4( im*jm*maxtyp, |
|
./pkg/fizhi/fizhi_init_veg.F |
134 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./pkg/fizhi/fizhi_init_veg.F |
167 |
FIZHI_INIT_VEG |
do i=1,im |
|
./pkg/fizhi/fizhi_init_veg.F |
171 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
185 |
FIZHI_INIT_VEG |
do i=1,im |
|
./pkg/fizhi/fizhi_init_veg.F |
189 |
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 |
6 |
FIZHI_INIT_VEG |
SUBROUTINE FIZHI_INIT_VEG(myThid,vegdata,im,jm,nSx,nSy,Nxg,Nyg, |
|
./pkg/fizhi/fizhi_init_veg.F |
73 |
FIZHI_INIT_VEG |
INTEGER*4 iveg_32(im,jm,maxtyp,Nxg,Nyg) |
|
./pkg/fizhi/fizhi_init_veg.F |
74 |
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 |
1150 |
TURBIO |
& duturb(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1152 |
TURBIO |
& dvturb(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1154 |
TURBIO |
& dtturb(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1157 |
TURBIO |
& dqturb(1,1,L,nt),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
115 |
TURBIO |
integer im,jm,nlay,istrip,nymd,nhms,bi,bj,ndturb,nltop |
|
./pkg/fizhi/fizhi_turb.F |
1160 |
TURBIO |
& qqgrid(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1163 |
TURBIO |
& fcctmp(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1165 |
TURBIO |
& qliqtmp(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1170 |
TURBIO |
call CTEI ( tz,qz,fcctmp,qliqtmp,plz,pkz,pkht,im*jm,nlay ) |
|
./pkg/fizhi/fizhi_turb.F |
1192 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
120 |
TURBIO |
_RL pz(im*jm,1),uz(im*jm,1,nlay),vz(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
121 |
TURBIO |
_RL tz(im*jm,1,nlay),qz(im*jm,1,nlay,ntracers) |
|
./pkg/fizhi/fizhi_turb.F |
122 |
TURBIO |
_RL plz(im*jm,1,nlay),plze(im*jm,1,nlay+1),dpres(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
123 |
TURBIO |
_RL pkht(im*jm,1,nlay+1),pkz(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
126 |
TURBIO |
_RL tgz(im*jm,1),fracland(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
127 |
TURBIO |
integer landtype(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
132 |
TURBIO |
_RL alai(nchp),agrn(nchp),thkz(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
134 |
TURBIO |
_RL duturb(im*jm,1,nlay),dvturb(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
135 |
TURBIO |
_RL dtturb(im*jm,1,nlay),dqturb(im*jm,1,nlay,ntracers) |
|
./pkg/fizhi/fizhi_turb.F |
136 |
TURBIO |
_RL st4(im*jm,1),dst4(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
137 |
TURBIO |
_RL radswg(im*jm,1),radswt(im*jm,1),radlwg(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
138 |
TURBIO |
_RL fdifpar(im*jm,1),fdirpar(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
139 |
TURBIO |
_RL rainlsp(im*jm,1),rainconv(im*jm,1),snowfall(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
140 |
TURBIO |
_RL tempref (im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
142 |
TURBIO |
_RL qliqavesw(im*jm,1,nlay),qliqavelw(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
143 |
TURBIO |
_RL fccavelw (im*jm,1,nlay),fccavesw (im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
144 |
TURBIO |
_RL qqgrid (im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
160 |
TURBIO |
_RL qliqtmp(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
161 |
TURBIO |
_RL fcctmp(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
162 |
TURBIO |
_RL tmpdiag(im*jm,1), tmpFac |
|
./pkg/fizhi/fizhi_turb.F |
163 |
TURBIO |
_RL thtgz(im*jm) |
|
./pkg/fizhi/fizhi_turb.F |
26 |
TURBIO |
SUBROUTINE TURBIO (im,jm,nlay,istrip,nymd,nhms,bi,bj, qbeg |
|
./pkg/fizhi/fizhi_turb.F |
293 |
TURBIO |
ijall = im * jm |
|
./pkg/fizhi/fizhi_turb.F |
325 |
TURBIO |
call GRD2MSC(pz(1,1),im,jm,igrd,pmsc,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
327 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
332 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
336 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
340 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
344 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
348 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
352 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
353 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
354 |
TURBIO |
call GRD2MSC(rainlsp,im,jm,igrd,lsprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
355 |
TURBIO |
call GRD2MSC(rainconv,im,jm,igrd,cnvprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
356 |
TURBIO |
call GRD2MSC(snowfall,im,jm,igrd,snowprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
431 |
TURBIO |
call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm) |
|
./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 |
1000 |
GETEMISS |
_RL emiss(im,jm,10,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
1003 |
GETEMISS |
_RL tmpij(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
1021 |
GETEMISS |
do i = 1,im |
|
./pkg/fizhi/update_earth_exports.F |
1026 |
GETEMISS |
& nchptot,fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
1028 |
GETEMISS |
do i = 1,im |
|
./pkg/fizhi/update_earth_exports.F |
1221 |
GET_LANDFRAC |
SUBROUTINE GET_LANDFRAC(im,jm,nSx,nSy,bi,bj,maxtyp,surftype, |
|
./pkg/fizhi/update_earth_exports.F |
1230 |
GET_LANDFRAC |
INTEGER im,jm,nSx,nSy,bi,bj,maxtyp |
|
./pkg/fizhi/update_earth_exports.F |
1231 |
GET_LANDFRAC |
INTEGER surftype(im,jm,maxtyp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
1232 |
GET_LANDFRAC |
_RL tilefrac(im,jm,maxtyp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
1233 |
GET_LANDFRAC |
_RL frac(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
1238 |
GET_LANDFRAC |
do i=1,im |
|
./pkg/fizhi/update_earth_exports.F |
1245 |
GET_LANDFRAC |
do i=1,im |
|
./pkg/fizhi/update_earth_exports.F |
820 |
GETALB |
SUBROUTINE GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm, |
|
./pkg/fizhi/update_earth_exports.F |
862 |
GETALB |
INTEGER sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
863 |
GETALB |
_RL cosz(im,jm),fraci(im,jm),fracg(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
867 |
GETALB |
_RL albvr(im,jm,nSx,nSy),albvf(im,jm,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
868 |
GETALB |
_RL albnr(im,jm,nSx,nSy),albnf(im,jm,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
880 |
GETALB |
_RL alboc(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
884 |
GETALB |
_RL tmpij(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
899 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd(1,bi,bj),zenith,nchp,nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
914 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
927 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
939 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
951 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
963 |
GETEMISS |
SUBROUTINE GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
994 |
GETEMISS |
INTEGER im,jm,nchp,nchptot,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
995 |
GETEMISS |
_RL fracg(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/obcs/obcs_init_fixed.F |
330 |
OBCS_INIT_FIXED |
im = MAX( i-1, 1-OLx ) |
|
./pkg/obcs/obcs_init_fixed.F |
339 |
OBCS_INIT_FIXED |
IF ( OB_Jn(im,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
340 |
OBCS_INIT_FIXED |
jB = MAX( jB, OB_Jn(im,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
349 |
OBCS_INIT_FIXED |
im = MAX( i-1, 1-OLx ) |
|
./pkg/obcs/obcs_init_fixed.F |
358 |
OBCS_INIT_FIXED |
IF ( OB_Js(im,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
359 |
OBCS_INIT_FIXED |
jB = MIN( jB, OB_Js(im,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
47 |
OBCS_INIT_FIXED |
INTEGER im, jm |
|
./pkg/seaice/lsr.F |
53 |
LSR |
INTEGER i, j, m, bi, bj, j1, j2, im, jm |
|
./pkg/seaice/seaice_fgmres.F |
201 |
SEAICE_FGMRES |
I n,im,rhs, |
|
./pkg/seaice/seaice_fgmres.F |
238 |
SEAICE_FGMRES |
integer i, n, im, its, maxits, iout, icode |
|
./pkg/seaice/seaice_fgmres.F |
240 |
SEAICE_FGMRES |
_RL vv(n,im+1,nSx,nSy), w(n,im,nSx,nSy) |
|
./pkg/seaice/seaice_fgmres.F |
357 |
SEAICE_FGMRES |
if ( im .gt. imax ) stop 'size of krylov space > 50' |
|
./pkg/seaice/seaice_fgmres.F |
383 |
SEAICE_FGMRES |
call SEAICE_SCALPROD(n, im+1, 1, 1, vv, vv, ro, myThid) |
|
./pkg/seaice/seaice_fgmres.F |
466 |
SEAICE_FGMRES |
call SEAICE_SCALPROD(n, im+1, j, i1, vv, vv, t, myThid) |
|
./pkg/seaice/seaice_fgmres.F |
476 |
SEAICE_FGMRES |
call SEAICE_SCALPROD(n, im+1, i1, i1, vv, vv, t, myThid) |
|
./pkg/seaice/seaice_fgmres.F |
542 |
SEAICE_FGMRES |
if (i .lt. im .and. its .lt. maxits |
|
./pkg/seaice/seaice_fgmres.F |
616 |
SEAICE_SCALPROD |
subroutine SEAICE_SCALPROD(n,im,i1,i2,dx,dy,t,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
629 |
SEAICE_SCALPROD |
integer n, im, i1, i2 |
|
./pkg/seaice/seaice_fgmres.F |
630 |
SEAICE_SCALPROD |
_RL dx(n,im,nSx,nSy),dy(n,im,nSx,nSy) |
|
./pkg/seaice/seaice_jfnk.F |
114 |
SEAICE_JFNK |
_RL vv(nVec,im+1,nSx,nSy), w(nVec,im,nSx,nSy) |
|
./pkg/seaice/seaice_jfnk.F |
262 |
SEAICE_JFNK |
CALL SEAICE_FGMRES (nVec,im,rhs,sol,ifgmres,krylovIter, |
|
./pkg/seaice/seaice_jfnk.F |
75 |
SEAICE_JFNK |
INTEGER im |
|
./pkg/seaice/seaice_jfnk.F |
76 |
SEAICE_JFNK |
PARAMETER ( im = 50 ) |
|
./pkg/seaice/seaice_krylov.F |
106 |
SEAICE_KRYLOV |
_RL vv(nVec,im+1,nSx,nSy), w(nVec,im,nSx,nSy) |
|
./pkg/seaice/seaice_krylov.F |
323 |
SEAICE_KRYLOV |
CALL SEAICE_FGMRES (nVec,im,rhs,sol,ifgmres,krylovIter, |
|
./pkg/seaice/seaice_krylov.F |
67 |
SEAICE_KRYLOV |
INTEGER im |
|
./pkg/seaice/seaice_krylov.F |
68 |
SEAICE_KRYLOV |
PARAMETER ( im = 50 ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
121 |
FIZHI_INIT_VEG |
do i=1,im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
125 |
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 |
76 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
85 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
131 |
FIZHI_INIT_VEG |
do i=1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
135 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
149 |
FIZHI_INIT_VEG |
do i=1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
153 |
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 |
82 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
98 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./model/src/solve_uv_tridiago.F |
129 |
SOLVE_UV_TRIDIAGO |
im = i-1 |
|
./model/src/solve_uv_tridiago.F |
131 |
SOLVE_UV_TRIDIAGO |
tmpVar = bU(i,j,k,bi,bj) - alpU(i,j,bi,bj)*gamU(im,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
139 |
SOLVE_UV_TRIDIAGO |
& - alpU(i,j,bi,bj)*yy_U(im,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
142 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = - alpU(i,j,bi,bj)*alpU(im,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
79 |
SOLVE_UV_TRIDIAGO |
INTEGER ii, im, ip |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
12 |
DIAGNOSTICS_CALC_PHIVEL |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
43 |
DIAGNOSTICS_CALC_PHIVEL |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
12 |
DIAGNOSTICS_INTERP_VERT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
50 |
DIAGNOSTICS_INTERP_VERT |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_out.F |
197 |
DIAGNOSTICS_OUT |
im = mdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
198 |
DIAGNOSTICS_OUT |
IF (mate.GT.0) im = im + kdiag(mate)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
199 |
DIAGNOSTICS_OUT |
IF (mDbl.GT.0) im = im + kdiag(mDbl)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
200 |
DIAGNOSTICS_OUT |
IF (mVec.GT.0) im = im + kdiag(mVec)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
270 |
DIAGNOSTICS_OUT |
& cdiag(mDbl),' (#',mDbl,') Cnt=',ndiag(im,1,1) |
|
./pkg/diagnostics/diagnostics_out.F |
282 |
DIAGNOSTICS_OUT |
IF ( im.GT.0 .AND. ndiag(MAX(1,im),1,1).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
305 |
DIAGNOSTICS_OUT |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
317 |
DIAGNOSTICS_OUT |
I mDbl, 0, im, 0, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
329 |
DIAGNOSTICS_OUT |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
338 |
DIAGNOSTICS_OUT |
I mDbl, 0, im, 0, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
352 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
365 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
375 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
67 |
DIAGNOSTICS_OUT |
INTEGER md, ndId, nn, 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 |
149 |
DIAGNOSTICS_SUMMARY |
im = mdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
150 |
DIAGNOSTICS_SUMMARY |
IF (im.NE.0) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
153 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
210 |
DIAGNOSTICS_SUMMARY |
im = mSdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
211 |
DIAGNOSTICS_SUMMARY |
IF (im.NE.0) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
215 |
DIAGNOSTICS_SUMMARY |
& qSdiag(0,0,im, 1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
33 |
DIAGNOSTICS_SUMMARY |
INTEGER md, ld, ndId, ipt, im |
|
./pkg/diagnostics/diagnostics_utils.F |
104 |
DIAGNOSTICS_GET_DIAG |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
128 |
DIAGNOSTICS_GET_DIAG |
INTEGER ndId, mate, ip, im |
|
./pkg/diagnostics/diagnostics_utils.F |
183 |
DIAGNOSTICS_GET_DIAG |
ipCt = im + km - 1 |
|
./pkg/diagnostics/diagstats_ascii_out.F |
40 |
DIAGSTATS_ASCII_OUT |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_ascii_out.F |
41 |
DIAGSTATS_ASCII_OUT |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
|
./pkg/diagnostics/diagstats_calc.F |
189 |
DIAGSTATS_CALC |
statArr(im) = tmpFld(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
196 |
DIAGSTATS_CALC |
statArr(ix) = statArr(im) |
|
./pkg/diagnostics/diagstats_calc.F |
200 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld(i,j),statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
320 |
DIAGSTATS_CALC |
statArr(im) = MINVAL(tmpFld, MASK = arrMaskL0.) |
|
./pkg/diagnostics/diagstats_calc.F |
78 |
DIAGSTATS_CALC |
INTEGER im, ix |
|
./pkg/diagnostics/diagstats_calc.F |
92 |
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 |
234 |
DIAGSTATS_LOCAL |
statFld(im,n) = statLoc(im) |
|
./pkg/diagnostics/diagstats_local.F |
237 |
DIAGSTATS_LOCAL |
statFld(im,n) = MIN( statFld(im,n), statLoc(im) ) |
|
./pkg/diagnostics/diagstats_local.F |
87 |
DIAGSTATS_LOCAL |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_local.F |
88 |
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 ) |