| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_step_fwd.F |
156 |
THSICE_STEP_FWD |
& Tsf, Tice, frzmltMxL |
|
./pkg/thsice/thsice_step_fwd.F |
190 |
THSICE_STEP_FWD |
frzmltMxL = (TFrzOce-oceTs)*cphm/ocean_deltaT |
|
./pkg/thsice/thsice_step_fwd.F |
196 |
THSICE_STEP_FWD |
IF (dBug .AND. (frzmltMxL.GT.0. .OR. compact.GT.0.) ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
202 |
THSICE_STEP_FWD |
& oceTs, TFrzOce, frzmltMxL,Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
217 |
THSICE_STEP_FWD |
I frzmltMxL, TFrzOce, oceTs, oceV2s, snowPr, |
|
./pkg/thsice/thsice_step_fwd.F |
294 |
THSICE_STEP_FWD |
esurp = frzmltMxL - Fbot*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
85 |
THSICE_STEP_FWD |
_RL TFrzOce, cphm, frzmltMxL |