| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_vars.F |
103 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
111 |
FIZHI_INIT_VARS |
& pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
118 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/fizhi_init_vars.F |
122 |
FIZHI_INIT_VARS |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_init_vars.F |
123 |
FIZHI_INIT_VARS |
& pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_init_vars.F |
162 |
FIZHI_INIT_VARS |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./pkg/fizhi/fizhi_init_vars.F |
173 |
FIZHI_INIT_VARS |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./pkg/fizhi/fizhi_init_vars.F |
182 |
FIZHI_INIT_VARS |
call DYN2PHYS(theta,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./pkg/fizhi/fizhi_init_vars.F |
191 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./pkg/fizhi/fizhi_init_vars.F |
54 |
FIZHI_INIT_VARS |
_RL pedyn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
180 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_wrapper.F |
188 |
FIZHI_WRAPPER |
& pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
195 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/fizhi_wrapper.F |
199 |
FIZHI_WRAPPER |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
200 |
FIZHI_WRAPPER |
& pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
295 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
304 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
313 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
322 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
45 |
FIZHI_WRAPPER |
_RL pedyn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
101 |
STEP_FIZHI_CORR |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
102 |
STEP_FIZHI_CORR |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/step_fizhi_corr.F |
147 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,udyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
156 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,vdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
165 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,thdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
174 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,sdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
216 |
STEP_FIZHI_CORR |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
226 |
STEP_FIZHI_CORR |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
235 |
STEP_FIZHI_CORR |
call DYN2PHYS(thdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
244 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
372 |
STEP_FIZHI_CORR |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
383 |
STEP_FIZHI_CORR |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
436 |
STEP_FIZHI_CORR |
call DYN2PHYS(thdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
44 |
STEP_FIZHI_CORR |
_RL pedyn(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr+1,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
483 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
82 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/step_fizhi_corr.F |
90 |
STEP_FIZHI_CORR |
. pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
97 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/gridalt/dyn2phys.F |
102 |
DYN2PHYS |
dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj) |
|
./pkg/gridalt/dyn2phys.F |
117 |
DYN2PHYS |
if( (flg.eq.2) .and. (pedyn(i,j,L,bi,bj).lt.10000.)) then |
|
./pkg/gridalt/dyn2phys.F |
119 |
DYN2PHYS |
. (qd-5. + (10.*(pedyn(i,j,L,bi,bj)-pphy(i,j,Lphy))/dpkedyn))/qd |
|
./pkg/gridalt/dyn2phys.F |
120 |
DYN2PHYS |
elseif( (flg.eq.2) .and. (pedyn(i,j,L,bi,bj).ge.10000.)) then |
|
./pkg/gridalt/dyn2phys.F |
49 |
DYN2PHYS |
_RL pedyn(im1:im2,jm1:jm2,lmdyn+1,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
6 |
DYN2PHYS |
subroutine DYN2PHYS(qdyn,pedyn,im1,im2,jm1,jm2,lmdyn,Nsx,Nsy, |
|
./pkg/gridalt/phys2dyn.F |
45 |
PHYS2DYN |
_RL pedyn(im1:im2,jm1:jm2,lmdyn+1,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
7 |
PHYS2DYN |
. idim1,idim2,jdim1,jdim2,bi,bj,pedyn,Lbot,lmdyn,nlperdyn,qdyn) |
|
./pkg/gridalt/phys2dyn.F |
86 |
PHYS2DYN |
dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
50 |
INI_SALT |
_RL pedyn(Nr+1), pdyn(Nr), pkappa(Nr) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
59 |
INI_SALT |
pedyn(1) = 100000. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
61 |
INI_SALT |
pedyn(K) = pedyn(K-1) - drF(K-1) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
64 |
INI_SALT |
pdyn(K)=(pedyn(K+1)+pedyn(K))/2. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
102 |
FIZHI_INIT_VARS |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
103 |
FIZHI_INIT_VARS |
& pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
142 |
FIZHI_INIT_VARS |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
153 |
FIZHI_INIT_VARS |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
162 |
FIZHI_INIT_VARS |
call DYN2PHYS(theta,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
172 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
42 |
FIZHI_INIT_VARS |
_RL pedyn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
83 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
91 |
FIZHI_INIT_VARS |
& pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
98 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |