| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
108 |
DO_FIZHI |
_RL pkle(sNx,sNy,Nrphys+1,Nsx,Nsy) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
159 |
DO_FIZHI |
common /saver/ pl,ple,dpres,pkle,pkl |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
191 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
210 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
212 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
230 |
DO_FIZHI |
call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj), |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
235 |
DO_FIZHI |
. dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),surfZ, |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
108 |
DO_FIZHI |
_RL pkle(sNx,sNy,Nrphys+1,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_utils.F |
897 |
PKAPPA |
subroutine PKAPPA (im,jm,lm,ple,pkle,pkz) |
|
./pkg/fizhi/fizhi_utils.F |
914 |
PKAPPA |
_RL pkle(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_utils.F |
925 |
PKAPPA |
pkz(i,j,L) = ( ple (i,j,l+1)*pkle(i,j,l+1) |
|
./pkg/fizhi/fizhi_utils.F |
926 |
PKAPPA |
. - ple (i,j,l)*pkle(i,j,l) ) |
|
./pkg/fizhi/do_fizhi.F |
108 |
DO_FIZHI |
_RL pkle(sNx,sNy,Nrphys+1,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
159 |
DO_FIZHI |
common /saver/ pl,ple,dpres,pkle,pkl |
|
./pkg/fizhi/do_fizhi.F |
190 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
209 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./pkg/fizhi/do_fizhi.F |
211 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/do_fizhi.F |
229 |
DO_FIZHI |
call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
234 |
DO_FIZHI |
. dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),surfZ, |