| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
527 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_calc.F |
528 |
GGL90_CALC |
GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
529 |
GGL90_CALC |
& - GGL90TKEbottom*c3d(i,j,kBottom) |
|
./pkg/ggl90/ggl90_calc.F |
530 |
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/mom_common/mom_u_bottomdrag.F |
54 |
MOM_U_BOTTOMDRAG |
INTEGER i,j,kDown,kLowF,kBottom |
|
./pkg/mom_common/mom_u_bottomdrag.F |
64 |
MOM_U_BOTTOMDRAG |
kBottom = Nr |
|
./pkg/mom_common/mom_u_bottomdrag.F |
71 |
MOM_U_BOTTOMDRAG |
kBottom = 1 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
77 |
MOM_U_BOTTOMDRAG |
IF ( k.EQ.kBottom ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
54 |
MOM_V_BOTTOMDRAG |
INTEGER i,j,kDown,kLowF,kBottom |
|
./pkg/mom_common/mom_v_bottomdrag.F |
64 |
MOM_V_BOTTOMDRAG |
kBottom = Nr |
|
./pkg/mom_common/mom_v_bottomdrag.F |
71 |
MOM_V_BOTTOMDRAG |
kBottom = 1 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
77 |
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/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 ) |