| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
109 |
DO_FIZHI |
_RL pkle(sNx,sNy,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
160 |
DO_FIZHI |
COMMON /saver/ p,pl,ple,dpres,pkle,pkl |
|
./pkg/fizhi/do_fizhi.F |
195 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
214 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./pkg/fizhi/do_fizhi.F |
216 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/do_fizhi.F |
234 |
DO_FIZHI |
call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
240 |
DO_FIZHI |
& dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),surfZ, |
|
./pkg/fizhi/fizhi_utils.F |
904 |
PKAPPA |
subroutine PKAPPA (im,jm,lm,ple,pkle,pkz) |
|
./pkg/fizhi/fizhi_utils.F |
921 |
PKAPPA |
_RL pkle(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_utils.F |
932 |
PKAPPA |
pkz(i,j,L) = ( ple (i,j,l+1)*pkle(i,j,l+1) |
|
./pkg/fizhi/fizhi_utils.F |
933 |
PKAPPA |
. - ple (i,j,l)*pkle(i,j,l) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
109 |
DO_FIZHI |
_RL pkle(sNx,sNy,Nrphys+1,nSx,nSy) |