| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
585 |
KPP_CALC |
if ( useShelfIce ) k = kTopC(i,j,bi,bj) |
|
./pkg/shelfice/SHELFICE.h |
95 |
NO PROCEDURE |
COMMON /SHELFICE_PARMS_I/ kTopC, |
|
./pkg/shelfice/SHELFICE.h |
97 |
NO PROCEDURE |
INTEGER kTopC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/shelfice/shelfice_forcing.F |
166 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
174 |
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 |
82 |
SHELFICE_FORCING_T |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
59 |
SHELFICE_FORCING_SURF |
IF ( kTopC(i,j,bi,bj).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
68 |
SHELFICE_FORCING_SURF |
IF ( MAX( kTopC(i-1,j,bi,bj), kTopC(i,j,bi,bj) ).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
75 |
SHELFICE_FORCING_SURF |
IF ( MAX( kTopC(i,j-1,bi,bj), kTopC(i,j,bi,bj) ).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
89 |
SHELFICE_FORCING_SURF |
IF ( kTopC(i,j,bi,bj).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
76 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = kSurfC(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
78 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
260 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
274 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
293 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
308 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
356 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
400 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
450 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
108 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
124 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
140 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
161 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
77 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
108 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
124 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
140 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
161 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
77 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |