| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
575 |
KPP_CALC |
if ( useShelfIce ) k = kTopC(i,j,bi,bj) |
|
./pkg/shelfice/SHELFICE.h |
63 |
NO PROCEDURE |
COMMON /SHELFICE_PARMS_I/ kTopC |
|
./pkg/shelfice/SHELFICE.h |
64 |
NO PROCEDURE |
INTEGER kTopC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/shelfice/shelfice_forcing.F |
164 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
171 |
SHELFICE_FORCING_S |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
74 |
SHELFICE_FORCING_T |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
81 |
SHELFICE_FORCING_T |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
66 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = kSurfC(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
68 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
237 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
254 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
300 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
342 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
392 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |