| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
131 |
LWRIO |
CALL STRIP (PKZ ,pk ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
165 |
LWRIO |
TZL(I,L) = TZL(I,L)*pk(I,L) |
|
./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 |
45 |
LWRIO |
_RL pk(istrip,lm) |
|
./pkg/fizhi/fizhi_step_diag.F |
197 |
FIZHI_STEP_DIAG |
& * pk(i,j,L,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
19 |
FIZHI_STEP_DIAG |
_RL qq(im2,jm2,Nrphys,Nbi,Nbj),pk(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
224 |
FIZHI_STEP_DIAG |
& * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
238 |
FIZHI_STEP_DIAG |
& * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
251 |
FIZHI_STEP_DIAG |
& pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
264 |
FIZHI_STEP_DIAG |
& pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
297 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = thphy(i,j,L)*pk(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
341 |
FIZHI_STEP_DIAG |
& moistt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
365 |
FIZHI_STEP_DIAG |
& turbt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
390 |
FIZHI_STEP_DIAG |
& *pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
414 |
FIZHI_STEP_DIAG |
& swdt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
5 |
FIZHI_STEP_DIAG |
SUBROUTINE FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pk,dp, |
|
./pkg/fizhi/fizhi_swrad.F |
420 |
SWRIO |
CALL STRIP ( pkz , pk ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
474 |
SWRIO |
dtsw (i,L) = alf*( flux (i,L)-flux (i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
475 |
SWRIO |
dtswc(i,L) = alf*( fluxclr(i,L)-fluxclr(i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_turb.F |
219 |
TURBIO |
_RL pk(istrip,nlay), qq(istrip,nlay), p(istrip,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
448 |
TURBIO |
call STRIP2TILE(pkz,igrd,pk,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
594 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
630 |
TURBIO |
tmpnlay(i) = th(i,nlay)*pk(i,nlay) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
107 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkz(i,1) .AND. pk.GE.pktop ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
108 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,1) ) / ( pkz(i,2)-pkz(i,1) ) |
|
./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 |
12 |
DIAGNOSTICS_INTERP_P2P |
I qinp,pkz,pksrf,pktop,pk, |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
148 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkmax .AND. pk.GE.pkmin ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
150 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkz(i,L) .AND. pk.GE.pkz(i,L+1) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
151 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,L) ) / ( pkz(i,L+1)-pkz(i,L) ) |
|
./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 |
184 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.GE.pkz(i,1) .AND. pk.LE.pksrf(i) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
185 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,1) ) / ( pkz(i,2)-pkz(i,1) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
51 |
DIAGNOSTICS_INTERP_P2P |
_RL pktop,pk |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
85 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkmax .AND. pk.GE.pkmin ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
87 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.GE.pkz(i,L) .AND. pk.LE.pkz(i,L+1) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
88 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,L) ) / ( pkz(i,L+1)-pkz(i,L) ) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
188 |
DIAGNOSTICS_INTERP_VERT |
pk = levs(k,listId)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
191 |
DIAGNOSTICS_INTERP_VERT |
I qinp,pkz,pksrf,pkTop,pk, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
74 |
DIAGNOSTICS_INTERP_VERT |
_RL pk, pkTop |