| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_v_bottomdrag.F |
57 |
MOM_V_BOTTOMDRAG |
INTEGER I,J,kDown,kDownC,kBottom |
|
./pkg/mom_common/mom_v_bottomdrag.F |
63 |
MOM_V_BOTTOMDRAG |
kBottom = Nr |
|
./pkg/mom_common/mom_v_bottomdrag.F |
64 |
MOM_V_BOTTOMDRAG |
kDown = min(k+1,kBottom) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
67 |
MOM_V_BOTTOMDRAG |
kBottom = 1 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
68 |
MOM_V_BOTTOMDRAG |
kDown = max(k-1,kBottom) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
74 |
MOM_V_BOTTOMDRAG |
IF (k.EQ.kBottom) rdrckp1=recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
78 |
MOM_V_BOTTOMDRAG |
IF (k.EQ.kBottom) maskDown=0. |
|
./pkg/mom_common/mom_u_bottomdrag.F |
49 |
MOM_U_BOTTOMDRAG |
INTEGER I,J,kDown,kDownC,kBottom |
|
./pkg/mom_common/mom_u_bottomdrag.F |
56 |
MOM_U_BOTTOMDRAG |
kBottom = Nr |
|
./pkg/mom_common/mom_u_bottomdrag.F |
57 |
MOM_U_BOTTOMDRAG |
kDown = min(k+1,kBottom) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
60 |
MOM_U_BOTTOMDRAG |
kBottom = 1 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
61 |
MOM_U_BOTTOMDRAG |
kDown = max(k-1,kBottom) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
65 |
MOM_U_BOTTOMDRAG |
IF (k.EQ.kBottom) rdrckp1=recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
71 |
MOM_U_BOTTOMDRAG |
IF (k.EQ.kBottom) maskDown=0. |
|
./model/src/convective_adjustment_ini.F |
103 |
CONVECTIVE_ADJUSTMENT_INI |
kBottom = Nr |
|
./model/src/convective_adjustment_ini.F |
109 |
CONVECTIVE_ADJUSTMENT_INI |
kBottom = 2 |
|
./model/src/convective_adjustment_ini.F |
115 |
CONVECTIVE_ADJUSTMENT_INI |
DO K=kTop,kBottom,kDir |
|
./model/src/convective_adjustment_ini.F |
60 |
CONVECTIVE_ADJUSTMENT_INI |
INTEGER i, j, K, kTop, kBottom, kDir, deltaK |
|
./model/src/convective_adjustment_ini.F |
74 |
CONVECTIVE_ADJUSTMENT_INI |
kBottom = 0 |
|
./pkg/ggl90/ggl90_calc.F |
330 |
GGL90_CALC |
kBottom = MIN(MAX(kLowC(I,J,bi,bj),1),Nr) |
|
./pkg/ggl90/ggl90_calc.F |
331 |
GGL90_CALC |
gTKE(I,J,kBottom) = gTKE(I,J,kBottom) |
|
./pkg/ggl90/ggl90_calc.F |
332 |
GGL90_CALC |
& - GGL90TKEbottom*c(I,J,kBottom) |
|
./pkg/ggl90/ggl90_calc.F |
76 |
GGL90_CALC |
INTEGER I, J, K, Kp1, Km1, kSurf, kBottom |
|
./model/src/convective_adjustment.F |
104 |
CONVECTIVE_ADJUSTMENT |
kBottom = 2 |
|
./model/src/convective_adjustment.F |
110 |
CONVECTIVE_ADJUSTMENT |
DO K=kTop,kBottom,kDir |
|
./model/src/convective_adjustment.F |
55 |
CONVECTIVE_ADJUSTMENT |
INTEGER i, j, K, kTop, kBottom, kDir, deltaK |
|
./model/src/convective_adjustment.F |
69 |
CONVECTIVE_ADJUSTMENT |
kBottom = 0 |
|
./model/src/convective_adjustment.F |
98 |
CONVECTIVE_ADJUSTMENT |
kBottom = Nr |