| 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 |
19 |
FIZHI_STEP_DIAG |
_RL qq(im2,jm2,Nrphys,Nbi,Nbj),pk(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
200 |
FIZHI_STEP_DIAG |
. * pk(i,j,L,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
227 |
FIZHI_STEP_DIAG |
. * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
241 |
FIZHI_STEP_DIAG |
. * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
254 |
FIZHI_STEP_DIAG |
. pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
267 |
FIZHI_STEP_DIAG |
. pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
300 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = thphy(i,j,L)*pk(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
344 |
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 |
368 |
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 |
393 |
FIZHI_STEP_DIAG |
. *pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
417 |
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 |
223 |
TURBIO |
_RL pk(istrip,nlay), qq(istrip,nlay), p(istrip,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
499 |
TURBIO |
call STRIP2TILE(pkz,igrd,pk,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
645 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
681 |
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 |
190 |
DIAGNOSTICS_INTERP_VERT |
pk = levs(k,listId)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
193 |
DIAGNOSTICS_INTERP_VERT |
I qinp,pkz,pksrf,pkTop,pk, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
72 |
DIAGNOSTICS_INTERP_VERT |
_RL pk, pkTop, tmpLev |