| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/dyn2phys.F |
48 |
DYN2PHYS |
_RL pedyn(im1:im2,jm1:jm2,lmdyn+1,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
4 |
DYN2PHYS |
subroutine DYN2PHYS(qdyn,pedyn,im1,im2,jm1,jm2,lmdyn,Nsx,Nsy, |
|
./pkg/gridalt/dyn2phys.F |
80 |
DYN2PHYS |
dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
44 |
PHYS2DYN |
_RL pedyn(im1:im2,jm1:jm2,lmdyn+1,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
5 |
PHYS2DYN |
. idim1,idim2,jdim1,jdim2,bi,bj,pedyn,Lbot,lmdyn,nlperdyn,qdyn) |
|
./pkg/gridalt/phys2dyn.F |
72 |
PHYS2DYN |
dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/ini_salt.F |
50 |
INI_SALT |
_RL pedyn(Nr+1), pdyn(Nr), pkappa(Nr) |
|
./verification/fizhi-cs-aqualev10/code/ini_salt.F |
59 |
INI_SALT |
pedyn(1) = 100000. |
|
./verification/fizhi-cs-aqualev10/code/ini_salt.F |
61 |
INI_SALT |
pedyn(K) = pedyn(K-1) - drF(K-1) |
|
./verification/fizhi-cs-aqualev10/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) - |
|
./pkg/fizhi/step_fizhi_corr.F |
135 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,udyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
144 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,vdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
153 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,thdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
162 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,sdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
204 |
STEP_FIZHI_CORR |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
214 |
STEP_FIZHI_CORR |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
223 |
STEP_FIZHI_CORR |
call DYN2PHYS(thdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
232 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
37 |
STEP_FIZHI_CORR |
_RL pedyn(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr+1,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
72 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/step_fizhi_corr.F |
80 |
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 |
87 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/step_fizhi_corr.F |
91 |
STEP_FIZHI_CORR |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
92 |
STEP_FIZHI_CORR |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_init_vars.F |
102 |
FIZHI_INIT_VARS |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_init_vars.F |
103 |
FIZHI_INIT_VARS |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_init_vars.F |
142 |
FIZHI_INIT_VARS |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
153 |
FIZHI_INIT_VARS |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
162 |
FIZHI_INIT_VARS |
call DYN2PHYS(theta,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
172 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
42 |
FIZHI_INIT_VARS |
_RL pedyn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_vars.F |
83 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/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) |
|
./pkg/fizhi/fizhi_init_vars.F |
98 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/fizhi_wrapper.F |
102 |
FIZHI_WRAPPER |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
103 |
FIZHI_WRAPPER |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
170 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
179 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
188 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
197 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
42 |
FIZHI_WRAPPER |
_RL pedyn(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
83 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_wrapper.F |
91 |
FIZHI_WRAPPER |
. pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
98 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |