| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
608 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_calc.F |
609 |
GGL90_CALC |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
652 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_calc.F |
653 |
GGL90_CALC |
GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
654 |
GGL90_CALC |
& - GGL90TKEbottom*c3d(i,j,kBottom) |
|
./pkg/ggl90/ggl90_calc.F |
655 |
GGL90_CALC |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
78 |
GGL90_CALC |
INTEGER i, j, k, kp1, km1, kSurf, kBottom |
|
./pkg/ggl90/ggl90_idemix.F |
227 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
314 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
315 |
GGL90_IDEMIX |
delta(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
354 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
355 |
GGL90_IDEMIX |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
60 |
GGL90_IDEMIX |
INTEGER i, j, k, kp1, km1, kBottom |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
56 |
MOM_U_BOTDRAG_IMPL |
INTEGER kDown,kLowF,kBottom |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
70 |
MOM_U_BOTDRAG_IMPL |
kBottom = Nr |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
77 |
MOM_U_BOTDRAG_IMPL |
kBottom = 1 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
83 |
MOM_U_BOTDRAG_IMPL |
IF ( k.EQ.kBottom ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
56 |
MOM_U_BOTTOMDRAG |
INTEGER i,j,kDown,kLowF,kBottom |
|
./pkg/mom_common/mom_u_bottomdrag.F |
66 |
MOM_U_BOTTOMDRAG |
kBottom = Nr |
|
./pkg/mom_common/mom_u_bottomdrag.F |
73 |
MOM_U_BOTTOMDRAG |
kBottom = 1 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
79 |
MOM_U_BOTTOMDRAG |
IF ( k.EQ.kBottom ) THEN |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
56 |
MOM_V_BOTDRAG_IMPL |
INTEGER kDown,kLowF,kBottom |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
70 |
MOM_V_BOTDRAG_IMPL |
kBottom = Nr |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
77 |
MOM_V_BOTDRAG_IMPL |
kBottom = 1 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
83 |
MOM_V_BOTDRAG_IMPL |
IF ( k.EQ.kBottom ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
56 |
MOM_V_BOTTOMDRAG |
INTEGER i,j,kDown,kLowF,kBottom |
|
./pkg/mom_common/mom_v_bottomdrag.F |
66 |
MOM_V_BOTTOMDRAG |
kBottom = Nr |
|
./pkg/mom_common/mom_v_bottomdrag.F |
73 |
MOM_V_BOTTOMDRAG |
kBottom = 1 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
79 |
MOM_V_BOTTOMDRAG |
IF ( k.EQ.kBottom ) THEN |
|
./model/src/convective_adjustment.F |
115 |
CONVECTIVE_ADJUSTMENT |
kBottom = Nr |
|
./model/src/convective_adjustment.F |
121 |
CONVECTIVE_ADJUSTMENT |
kBottom = 2 |
|
./model/src/convective_adjustment.F |
136 |
CONVECTIVE_ADJUSTMENT |
DO K=kTop,kBottom,kDir |
|
./model/src/convective_adjustment.F |
62 |
CONVECTIVE_ADJUSTMENT |
INTEGER i, j, K, kTop, kBottom, kDir, deltaK |
|
./model/src/convective_adjustment.F |
86 |
CONVECTIVE_ADJUSTMENT |
kBottom = 0 |
|
./model/src/convective_adjustment_ini.F |
115 |
CONVECTIVE_ADJUSTMENT_INI |
kBottom = Nr |
|
./model/src/convective_adjustment_ini.F |
121 |
CONVECTIVE_ADJUSTMENT_INI |
kBottom = 2 |
|
./model/src/convective_adjustment_ini.F |
136 |
CONVECTIVE_ADJUSTMENT_INI |
DO K=kTop,kBottom,kDir |
|
./model/src/convective_adjustment_ini.F |
66 |
CONVECTIVE_ADJUSTMENT_INI |
INTEGER i, j, K, kTop, kBottom, kDir, deltaK |
|
./model/src/convective_adjustment_ini.F |
86 |
CONVECTIVE_ADJUSTMENT_INI |
kBottom = 0 |
|
./pkg/dic/dic_biotic_forcing.F |
109 |
DIC_BIOTIC_FORCING |
INTEGER kBottom |
|
./pkg/dic/dic_biotic_forcing.F |
319 |
DIC_BIOTIC_FORCING |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/dic/dic_biotic_forcing.F |
320 |
DIC_BIOTIC_FORCING |
GFE(i,j,kBottom)=GFE(i,j,kBottom) |
|
./pkg/dic/dic_biotic_forcing.F |
321 |
DIC_BIOTIC_FORCING |
& +( fesedflux_pcm*pflux(i,j,kBottom) + FeIntSec ) |
|
./pkg/dic/dic_biotic_forcing.F |
322 |
DIC_BIOTIC_FORCING |
& *recip_drF(kBottom)*recip_hFacC(i,j,kBottom,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
10 |
DWNSLP_APPLY |
I trIdentity, bi, bj, kBottom, |
|
./pkg/down_slope/dwnslp_apply.F |
146 |
DWNSLP_APPLY |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
53 |
DWNSLP_APPLY |
INTEGER kBottom ( xySize, nSx, nSy ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
102 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
10 |
DWNSLP_CALC_FLOW |
I bi, bj, kBottom, rho3d, |
|
./pkg/down_slope/dwnslp_calc_flow.F |
112 |
DWNSLP_CALC_FLOW |
DO k=kshelf+1,kBottom(ijd,bi,bj),downward |
|
./pkg/down_slope/dwnslp_calc_flow.F |
152 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
41 |
DWNSLP_CALC_FLOW |
INTEGER kBottom( xySize, nSx,nSy ) |