| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_vars.F |
109 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
110 |
FIZHI_INIT_VARS |
if(Lbotij.ne.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 |
116 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
117 |
FIZHI_INIT_VARS |
do L = Lbotij+1,Nr+1 |
|
./pkg/fizhi/fizhi_init_vars.F |
60 |
FIZHI_INIT_VARS |
INTEGER i, j, L, bi, bj, Lbotij |
|
./pkg/fizhi/fizhi_wrapper.F |
186 |
FIZHI_WRAPPER |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
187 |
FIZHI_WRAPPER |
if(Lbotij.ne.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 |
193 |
FIZHI_WRAPPER |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
194 |
FIZHI_WRAPPER |
do L = Lbotij+1,Nr+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
53 |
FIZHI_WRAPPER |
INTEGER i, j, L, Lbotij, bi, bj |
|
./pkg/fizhi/step_fizhi_corr.F |
56 |
STEP_FIZHI_CORR |
integer i, j, L, Lbotij, bi, bj |
|
./pkg/fizhi/step_fizhi_corr.F |
88 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
89 |
STEP_FIZHI_CORR |
if(Lbotij.lt.nr+1) |
|
./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 |
95 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
96 |
STEP_FIZHI_CORR |
do L = Lbotij+1,Nr+1 |
|
./pkg/gridalt/make_phys_grid.F |
123 |
MAKE_PHYS_GRID |
Lbotij = Lbot(i,j,bi,bj) |
|
./pkg/gridalt/make_phys_grid.F |
130 |
MAKE_PHYS_GRID |
& (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then |
|
./pkg/gridalt/make_phys_grid.F |
144 |
MAKE_PHYS_GRID |
if((hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)).ge. |
|
./pkg/gridalt/make_phys_grid.F |
152 |
MAKE_PHYS_GRID |
if((dptry(Lnew-1)+(hfacC(i,j,Lbotij,bi,bj)* |
|
./pkg/gridalt/make_phys_grid.F |
153 |
MAKE_PHYS_GRID |
& drF(Lbotij)-deltap)) .gt. (dptry(Lnew-1)*1.5) ) then |
|
./pkg/gridalt/make_phys_grid.F |
157 |
MAKE_PHYS_GRID |
& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
161 |
MAKE_PHYS_GRID |
& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
163 |
MAKE_PHYS_GRID |
deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
167 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Lbotij,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
172 |
MAKE_PHYS_GRID |
do L = Lbotij+1,Nr |
|
./pkg/gridalt/make_phys_grid.F |
56 |
MAKE_PHYS_GRID |
integer i,j,L,Lbotij,Lnew |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
51 |
INI_SALT |
integer Lbotij |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
48 |
FIZHI_INIT_VARS |
INTEGER i, j, L, bi, bj, Lbotij |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
89 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
90 |
FIZHI_INIT_VARS |
if(Lbotij.ne.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 |
96 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
97 |
FIZHI_INIT_VARS |
do L = Lbotij+1,Nr+1 |