| File |
Line number |
Procedure |
Code |
|
./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 |
165 |
FIZHI_DRIVER |
& low_level,mid_level,im,jm,lm, |
|
./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 |
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 |
73 |
FIZHI_DRIVER |
_RL xlmt(nchp,lm),khmt(nchp,lm),tke(nchp,lm) |
|
./pkg/fizhi/fizhi_driver.F |
74 |
FIZHI_DRIVER |
_RL co2,cfc11,cfc12,cfc22,methane(lm),n2o(lm) |
|
./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 |
89 |
FIZHI_DRIVER |
_RL dlwdtg(im,jm,lm) |
|
./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 |
189 |
TRACER_FILL |
do l=1,lm |
|
./pkg/fizhi/fizhi_fillnegs.F |
217 |
TRACER_FILL |
if( L.eq.lm ) then |
|
./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_lwrad.F |
108 |
LWRIO |
do L =1,lm |
|
./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 |
144 |
LWRIO |
DO L = 1,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
153 |
LWRIO |
DO L = 1,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
163 |
LWRIO |
DO L = 1,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
170 |
LWRIO |
TZL(I,lm) = ( 2*tzl(i,lm)+tsurf(i) )/3.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
175 |
LWRIO |
call OPTHK ( tzl,pl,ple,cldlz,clro,clmo,lwi,istrip,1,lm,tauc ) |
|
./pkg/fizhi/fizhi_lwrad.F |
178 |
LWRIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
189 |
LWRIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
201 |
LWRIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
213 |
LWRIO |
call IRRAD ( istrip,1,1,lm,ple,tzl,shzl,ozl,tsurf,co2, |
|
./pkg/fizhi/fizhi_lwrad.F |
21 |
LWRIO |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
223 |
LWRIO |
do L = 1,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 |
239 |
LWRIO |
flx (i,lm+1) = -flx (i,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 |
240 |
LWRIO |
flxclr(i,lm+1) = -flxclr(i,lm+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
242 |
LWRIO |
dsgmt4(i) = - dfdts(i,lm+1) |
|
./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 |
24 |
LWRIO |
_RL tz(im,jm,lm),qz(im,jm,lm),oz(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
25 |
LWRIO |
_RL co2,cfc11,cfc12,cfc22,methane(lm),n2o(lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
262 |
LWRIO |
DO L = 1,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
264 |
LWRIO |
DTRAD (I,L) = ple(i,lm+1) * DTRAD (I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
265 |
LWRIO |
DTRADC(I,L) = ple(i,lm+1) * DTRADC(I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
266 |
LWRIO |
dtdtg(I,L) = ple(i,lm+1) * dtdtg (I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
269 |
LWRIO |
CALL PASTE ( tmpstrip ,tmpimjm ,ISTRIP,im*jm,lm,NN ) |
|
./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 |
285 |
LWRIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
28 |
LWRIO |
_RL dtradlw(im,jm,lm),dlwdtg (im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
29 |
LWRIO |
_RL dtradlwc(im,jm,lm),lwgclr(im,jm) |
|
./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 |
333 |
LWRIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
34 |
LWRIO |
_RL qliqave(im,jm,lm),fccave(im,jm,lm) |
|
./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 |
44 |
LWRIO |
_RL pl(istrip,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
45 |
LWRIO |
_RL pk(istrip,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
46 |
LWRIO |
_RL pke(istrip,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
47 |
LWRIO |
_RL ple(istrip,lm+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
49 |
LWRIO |
_RL ADELPL(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
50 |
LWRIO |
_RL dtrad(istrip,lm),dtradc(istrip,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
51 |
LWRIO |
_RL OZL(ISTRIP,lm),TZL(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
52 |
LWRIO |
_RL SHZL(ISTRIP,lm),CLRO(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
53 |
LWRIO |
_RL CLMO(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
54 |
LWRIO |
_RL flx(ISTRIP,lm+1),flxclr(ISTRIP,lm+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
55 |
LWRIO |
_RL cldlz(istrip,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
56 |
LWRIO |
_RL dfdts(istrip,lm+1),dtdtg(istrip,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
59 |
LWRIO |
_RL taual(istrip,lm,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
60 |
LWRIO |
_RL ssaal(istrip,lm,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
61 |
LWRIO |
_RL asyal(istrip,lm,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
62 |
LWRIO |
_RL cwc(istrip,lm,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
63 |
LWRIO |
_RL reff(istrip,lm,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
64 |
LWRIO |
_RL tauc(istrip,lm,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
69 |
LWRIO |
_RL tmpstrip(istrip,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
70 |
LWRIO |
_RL tmpimjm(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
7 |
LWRIO |
. im,jm,lm, |
|
./pkg/fizhi/fizhi_lwrad.F |
97 |
LWRIO |
do L =1,lm |
|
./pkg/fizhi/fizhi_moist.F |
100 |
MOISTIO |
_RL saveu (istrip,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
1039 |
MOISTIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
103 |
MOISTIO |
_RL ple(istrip,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
104 |
MOISTIO |
_RL dp(istrip,lm) |
|
./pkg/fizhi/fizhi_moist.F |
105 |
MOISTIO |
_RL TL(ISTRIP,lm) , SHL(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
106 |
MOISTIO |
_RL PL(ISTRIP,lm) , PLK(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
107 |
MOISTIO |
_RL PLKE(ISTRIP,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
108 |
MOISTIO |
_RL TH(ISTRIP,lm) ,CVTH(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
109 |
MOISTIO |
_RL CVQ(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
110 |
MOISTIO |
_RL UL(ISTRIP,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
111 |
MOISTIO |
_RL cvu(istrip,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
112 |
MOISTIO |
_RL CLMAXO(ISTRIP,lm),CLBOTH(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
113 |
MOISTIO |
_RL CLSBTH(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
114 |
MOISTIO |
_RL TMP1(ISTRIP,lm), TMP2(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
115 |
MOISTIO |
_RL TMP3(ISTRIP,lm), TMP4(ISTRIP,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
116 |
MOISTIO |
_RL TMP5(ISTRIP,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
117 |
MOISTIO |
integer ITMP1(ISTRIP,lm), ITMP2(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
121 |
MOISTIO |
_RL PCPEN (ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
122 |
MOISTIO |
integer pbl(istrip),depths(lm) |
|
./pkg/fizhi/fizhi_moist.F |
124 |
MOISTIO |
_RL cldlz(istrip,lm), cldwater(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
125 |
MOISTIO |
_RL rhfrac(istrip), rhmin, pup, ppbl, rhcrit(istrip,lm) |
|
./pkg/fizhi/fizhi_moist.F |
130 |
MOISTIO |
_RL clfrac (istrip,lm) |
|
./pkg/fizhi/fizhi_moist.F |
131 |
MOISTIO |
_RL cldmas (istrip,lm) |
|
./pkg/fizhi/fizhi_moist.F |
132 |
MOISTIO |
_RL detrain(istrip,lm) |
|
./pkg/fizhi/fizhi_moist.F |
135 |
MOISTIO |
_RL rnd(lm/2) |
|
./pkg/fizhi/fizhi_moist.F |
19 |
MOISTIO |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_moist.F |
201 |
MOISTIO |
ncrnd = (lm-nltop+1)/2 |
|
./pkg/fizhi/fizhi_moist.F |
217 |
MOISTIO |
qqcolmin(i,j) = qqz(i,j,lm)*fracqq |
|
./pkg/fizhi/fizhi_moist.F |
218 |
MOISTIO |
qqcolmax(i,j) = qqz(i,j,lm) |
|
./pkg/fizhi/fizhi_moist.F |
219 |
MOISTIO |
levpbl(i,j) = lm+1 |
|
./pkg/fizhi/fizhi_moist.F |
223 |
MOISTIO |
DO L = lm-1,1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
227 |
MOISTIO |
1 .and.(levpbl(i,j).eq.lm+1))then |
|
./pkg/fizhi/fizhi_moist.F |
232 |
MOISTIO |
1 .and.(levpbl(i,j).eq.lm+1))levpbl(i,j)=L+1 |
|
./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 |
25 |
MOISTIO |
_RL tz(im,jm,lm),qz(im,jm,lm,ntracerin) |
|
./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 |
2687 |
CTEI |
do L=lm,2,-1 |
|
./pkg/fizhi/fizhi_moist.F |
268 |
MOISTIO |
pkegather(indx,lm+1) = pkht(i,j,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
269 |
MOISTIO |
plegather(indx,lm+1) = plze(i,j,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
26 |
MOISTIO |
_RL uz(im,jm,lm),vz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
272 |
MOISTIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
27 |
MOISTIO |
_RL qqz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
28 |
MOISTIO |
_RL dumoist(im,jm,lm),dvmoist(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
295 |
MOISTIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
29 |
MOISTIO |
_RL dtmoist(im,jm,lm),dqmoist(im,jm,lm,ntracerin) |
|
./pkg/fizhi/fizhi_moist.F |
308 |
MOISTIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
330 |
MOISTIO |
do l=1,lm |
|
./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 |
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 |
371 |
MOISTIO |
DO L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
381 |
MOISTIO |
do L = 1,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 |
415 |
MOISTIO |
DO 601 L=NSUBCL,lm |
|
./pkg/fizhi/fizhi_moist.F |
422 |
MOISTIO |
TMP1(I,4) = 1. / ( (PLE(I,lm+1)-PLE(I,NSUBCL))/sp(I) ) |
|
./pkg/fizhi/fizhi_moist.F |
430 |
MOISTIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
438 |
MOISTIO |
DO L=NSUBCL,lm |
|
./pkg/fizhi/fizhi_moist.F |
451 |
MOISTIO |
DO 111 L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
459 |
MOISTIO |
DO L=2,lm |
|
./pkg/fizhi/fizhi_moist.F |
465 |
MOISTIO |
TMP4(I,lm+1) = PLE (I,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
466 |
MOISTIO |
TMP5(I,lm+1) = PLKE(I,lm+1)*P0KINV |
|
./pkg/fizhi/fizhi_moist.F |
469 |
MOISTIO |
TMP4(I,NSUBCL+1) = PLE (I,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
470 |
MOISTIO |
TMP5(I,NSUBCL+1) = PLKE(I,lm+1)*P0KINV |
|
./pkg/fizhi/fizhi_moist.F |
503 |
MOISTIO |
do L = nsubcl, lm |
|
./pkg/fizhi/fizhi_moist.F |
522 |
MOISTIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
531 |
MOISTIO |
CALL RAS ( NN,istrip,nindeces(nsubcl),NLRAS,NLTOP,lm,TMSTP |
|
./pkg/fizhi/fizhi_moist.F |
53 |
MOISTIO |
_RL cldsr(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
540 |
MOISTIO |
do L=nsubcl,lm |
|
./pkg/fizhi/fizhi_moist.F |
542 |
MOISTIO |
dum = dp(i,L)/(ple(i,lm+1)-ple(i,nsubcl)) |
|
./pkg/fizhi/fizhi_moist.F |
54 |
MOISTIO |
_RL srcld(istrip,lm) |
|
./pkg/fizhi/fizhi_moist.F |
555 |
MOISTIO |
DO L=nsubcl+1,lm |
|
./pkg/fizhi/fizhi_moist.F |
562 |
MOISTIO |
DO L=nsubcl+1,lm |
|
./pkg/fizhi/fizhi_moist.F |
568 |
MOISTIO |
DO L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
583 |
MOISTIO |
DO L=nsubcl,lm |
|
./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 |
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 |
644 |
MOISTIO |
DO L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
654 |
MOISTIO |
CALL RNEVP (NN,ISTRIP,lm,TL,SHL,PCPEN,PL,CLFRAC,SP,DP,PLKE, |
|
./pkg/fizhi/fizhi_moist.F |
662 |
MOISTIO |
DO L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
694 |
MOISTIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
700 |
MOISTIO |
call SRCLOUDS (saveth,saveq,plk,pl,plke,clsbth,cldlz,istrip,lm, |
|
./pkg/fizhi/fizhi_moist.F |
703 |
MOISTIO |
do L=1,lm |
|
./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 |
743 |
MOISTIO |
do l=lup,lm |
|
./pkg/fizhi/fizhi_moist.F |
748 |
MOISTIO |
if (snowcrit .eq. (lm-lup+1)) then |
|
./pkg/fizhi/fizhi_moist.F |
778 |
MOISTIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
77 |
MOISTIO |
_RL thgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
78 |
MOISTIO |
_RL shgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
79 |
MOISTIO |
_RL pkzgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
805 |
MOISTIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
80 |
MOISTIO |
_RL pkegather(im*jm,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
815 |
MOISTIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
81 |
MOISTIO |
_RL plzgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
828 |
MOISTIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_moist.F |
82 |
MOISTIO |
_RL plegather(im*jm,lm+1) |
|
./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 |
857 |
MOISTIO |
do L=1,lm |
|
./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 |
870 |
MOISTIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
87 |
MOISTIO |
_RL ugather(im*jm,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
884 |
MOISTIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
88 |
MOISTIO |
_RL delugather(im*jm,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
897 |
MOISTIO |
do L=1,lm |
|
./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 |
910 |
MOISTIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
923 |
MOISTIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
92 |
MOISTIO |
integer nindeces(lm) |
|
./pkg/fizhi/fizhi_moist.F |
937 |
MOISTIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
951 |
MOISTIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
965 |
MOISTIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_moist.F |
98 |
MOISTIO |
_RL saveth (istrip,lm) |
|
./pkg/fizhi/fizhi_moist.F |
99 |
MOISTIO |
_RL saveq (istrip,lm) |
|
./pkg/fizhi/fizhi_moist.F |
9 |
MOISTIO |
. im,jm,lm,ptop, |
|
./pkg/fizhi/fizhi_rayleigh.F |
100 |
RAYLEIGH |
do L=1,lm |
|
./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 |
5 |
RAYLEIGH |
subroutine RAYLEIGH(myid,pres,pkap,pekap,zsurf,u,v,t,s,im,jm,lm, |
|
./pkg/fizhi/fizhi_rayleigh.F |
64 |
RAYLEIGH |
do L=1,lm |
|
./pkg/fizhi/fizhi_rayleigh.F |
75 |
RAYLEIGH |
z(i,j,lm) = zsurf(i,j) + 0.5 * dz(i,j,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
79 |
RAYLEIGH |
do L=lm-1,1,-1 |
|
./pkg/fizhi/fizhi_rayleigh.F |
87 |
RAYLEIGH |
do L=1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
114 |
SWRIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
125 |
SWRIO |
. lm,' and ',low_level |
|
./pkg/fizhi/fizhi_swrad.F |
177 |
SWRIO |
do L =1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
188 |
SWRIO |
do L =1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
201 |
SWRIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
20 |
SWRIO |
integer im,jm,lm |
|
./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 |
239 |
SWRIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
23 |
SWRIO |
_RL pkht(im,jm,lm+1),pkz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
24 |
SWRIO |
_RL tz(im,jm,lm),qz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
250 |
SWRIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
25 |
SWRIO |
_RL oz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
273 |
SWRIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
305 |
SWRIO |
call OPTHK(tdry,plz,plze,swlz,cldtot,cldmxo,landtype,im,jm,lm, |
|
./pkg/fizhi/fizhi_swrad.F |
308 |
SWRIO |
do L = 1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
30 |
SWRIO |
_RL osr(im,jm),osrclr(im,jm),dtradsw(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
318 |
SWRIO |
do L=1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
31 |
SWRIO |
_RL dtswclr(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
330 |
SWRIO |
do L=1,lm |
|
./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 |
355 |
SWRIO |
do L = low_level,lm |
|
./pkg/fizhi/fizhi_swrad.F |
36 |
SWRIO |
_RL qliqave(im,jm,lm),fccave(im,jm,lm) |
|
./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 |
432 |
SWRIO |
call STRIP ( cldtot,clro,im*jm,istrip,lm,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
436 |
SWRIO |
do L= 1,lm |
|
./pkg/fizhi/fizhi_swrad.F |
461 |
SWRIO |
call SORAD ( istrip,1,1,lm,ple,tzl,qzl,ozl,co2, |
|
./pkg/fizhi/fizhi_swrad.F |
471 |
SWRIO |
do l=1,lm |
|
./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 |
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 |
495 |
SWRIO |
tstrip(i) = 1.0 - flux(i,lm+1)/ |
|
./pkg/fizhi/fizhi_swrad.F |
50 |
SWRIO |
_RL tdry(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
536 |
SWRIO |
do L = 1,lm |
|
./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 |
579 |
OPTHK |
integer im,jm,lm,i,j,L |
|
./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 |
595 |
OPTHK |
do L=1,lm |
|
./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 |
67 |
SWRIO |
_RL PK(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
68 |
SWRIO |
_RL qzl(ISTRIP,lm),CLRO(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
69 |
SWRIO |
_RL TZL(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
6 |
SWRIO |
. low_level,mid_level,im,jm,lm, |
|
./pkg/fizhi/fizhi_swrad.F |
70 |
SWRIO |
_RL OZL(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
71 |
SWRIO |
_RL PLE(ISTRIP,lm+1) |
|
./pkg/fizhi/fizhi_swrad.F |
73 |
SWRIO |
_RL dpstrip(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
82 |
SWRIO |
_RL flux(istrip,lm+1) |
|
./pkg/fizhi/fizhi_swrad.F |
83 |
SWRIO |
_RL fluxclr(istrip,lm+1) |
|
./pkg/fizhi/fizhi_swrad.F |
84 |
SWRIO |
_RL dtsw(istrip,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
85 |
SWRIO |
_RL dtswc(istrip,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
87 |
SWRIO |
_RL taul (istrip,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
88 |
SWRIO |
_RL reff (istrip,lm,2) |
|
./pkg/fizhi/fizhi_swrad.F |
89 |
SWRIO |
_RL tauc (istrip,lm,2) |
|
./pkg/fizhi/fizhi_swrad.F |
90 |
SWRIO |
_RL taua (istrip,lm) |
|
./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 |
929 |
PKAPPA |
do L = 1,lm |
|
./pkg/fizhi/slprs.F |
21 |
SLPRS |
integer im,jm,lm |
|
./pkg/fizhi/slprs.F |
23 |
SLPRS |
_RL PHIS (im*jm), THZ (im*jm,lm) |
|
./pkg/fizhi/slprs.F |
25 |
SLPRS |
_RL ple(im*jm,lm+1) |
|
./pkg/fizhi/slprs.F |
45 |
SLPRS |
Ltop(i) = lm |
|
./pkg/fizhi/slprs.F |
48 |
SLPRS |
do L = lm,1,-1 |
|
./pkg/fizhi/slprs.F |
50 |
SLPRS |
if ( ple(i,L+1).ge.(ple(i,lm+1)-100.) ) then |
|
./pkg/fizhi/slprs.F |
58 |
SLPRS |
tm(i) = tm(i)/(ple(i,lm+1)-ple(i,Ltop(i))) |
|
./pkg/fizhi/slprs.F |
5 |
SLPRS |
subroutine SLPRS (PHIS,PLE,THZ,lwmask,im,jm,lm,SLP) |
|
./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 |
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 |
132 |
INTERP_CHEMISTRY |
. bi,bj, xlat,lm,plz,qz,qzrad(1,1,1,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
134 |
INTERP_CHEMISTRY |
. bi,bj, xlat,lm,plz,ozrad(1,1,1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
12 |
DIAGNOSTICS_CALC_PHIVEL |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
305 |
DIAGNOSTICS_CALC_PHIVEL |
& psiLoc, ' #', k, lm, myIter, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
43 |
DIAGNOSTICS_CALC_PHIVEL |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
121 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.GE.pkz(i,lm) .AND. pk.LE.pksrf(i) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
122 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,lm) ) / ( pkz(i,lm-1)-pkz(i,lm) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
124 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,lm) .NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
125 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,lm-1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
126 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm-1)*temp + qinp(i,lm)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
127 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,lm) .NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
128 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
139 |
DIAGNOSTICS_INTERP_P2P |
DO L=1,lm-1 |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
13 |
DIAGNOSTICS_INTERP_P2P |
I undef, pInc,ijm,lm, myThid ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
170 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkz(i,lm) .AND. pk.GE.pktop ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
171 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,lm) ) / ( pkz(i,lm-1)-pkz(i,lm) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
173 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,lm) .NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
174 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,lm-1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
175 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm-1)*temp + qinp(i,lm)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
176 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,lm) .NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
177 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
47 |
DIAGNOSTICS_INTERP_P2P |
INTEGER ijm,lm,myThid |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
48 |
DIAGNOSTICS_INTERP_P2P |
_RL qinp (ijm,lm) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
49 |
DIAGNOSTICS_INTERP_P2P |
_RL pkz (ijm,lm) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
76 |
DIAGNOSTICS_INTERP_P2P |
DO L=1,lm-1 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
110 |
DIAGNOSTICS_INTERP_VERT |
ipoint1 = ipoint1 + kdiag(jpoint1)*(lm-1) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
111 |
DIAGNOSTICS_INTERP_VERT |
ipoint2 = ipoint2 + kdiag(jpoint2)*(lm-1) |
|
./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_mnc_out.F |
101 |
DIAGNOSTICS_MNC_SET |
klev = myIter + lm - averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
102 |
DIAGNOSTICS_MNC_SET |
tmpLev = myTime + deltaTClock*( lm - averageCycle(listId) ) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
18 |
DIAGNOSTICS_MNC_SET |
I nLevOutp, listId, lm, |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
45 |
DIAGNOSTICS_MNC_SET |
INTEGER listId, lm |
|
./pkg/diagnostics/diagnostics_out.F |
155 |
DIAGNOSTICS_OUT |
DO lm=1,averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
160 |
DIAGNOSTICS_OUT |
I nLevOutp, listId, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
196 |
DIAGNOSTICS_OUT |
ip = ABS(idiag(md,listId)) + kdiag(ndId)*(lm-1) |
|
./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 |
228 |
DIAGNOSTICS_OUT |
& '- WARNING - has not been filled (ndiag(lm=',lm,')=', |
|
./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 |
396 |
DIAGNOSTICS_OUT |
nRec = md + (lm-1)*nfields(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
65 |
DIAGNOSTICS_OUT |
INTEGER i, j, k, lm |
|
./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 |