| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
540 |
KPP_CALC |
if ( useShelfIce ) k = kTopC(i,j,bi,bj) |
|
./pkg/shelfice/SHELFICE.h |
56 |
NO PROCEDURE |
COMMON /SHELFICE_PARMS_I/ kTopC |
|
./pkg/shelfice/SHELFICE.h |
57 |
NO PROCEDURE |
INTEGER kTopC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/shelfice/shelfice_forcing.F |
156 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
163 |
SHELFICE_FORCING_S |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
177 |
SHELFICE_FORCING_S |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
64 |
SHELFICE_FORCING_T |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
71 |
SHELFICE_FORCING_T |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
85 |
SHELFICE_FORCING_T |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
57 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
60 |
SHELFICE_INIT_FIXED |
& kTopC(I,J,bi,bj) = K |
|
./pkg/shelfice/shelfice_thermodynamics.F |
120 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
130 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
162 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
213 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |