| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_step_diag.F |
199 |
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 |
226 |
FIZHI_STEP_DIAG |
. * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
240 |
FIZHI_STEP_DIAG |
. * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
253 |
FIZHI_STEP_DIAG |
. pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
266 |
FIZHI_STEP_DIAG |
. pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
299 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = thphy(i,j,L,bi,bj)*pk(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
343 |
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 |
367 |
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 |
392 |
FIZHI_STEP_DIAG |
. *pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
416 |
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_turb.F |
203 |
TURBIO |
_RL pk(istrip,nlay), qq(istrip,nlay), p(istrip,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
475 |
TURBIO |
call STRIP2TILE(pkz,igrd,pk,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
617 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
653 |
TURBIO |
tmpnlay(i) = th(i,nlay)*pk(i,nlay) |
|
./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) |