| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_step_fwd.F |
210 |
THSICE_STEP_FWD |
frzmltMxL(i,j) = ( tFrzOce(i,j)-tOceMxL(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_step_fwd.F |
217 |
THSICE_STEP_FWD |
IF (frzmltMxL(i,j).GT.0. .OR. iceFrac(i,j).GT.0.) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
224 |
THSICE_STEP_FWD |
& frzmltMxL(i,j), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
249 |
THSICE_STEP_FWD |
U icFrwAtm(siLo,sjLo,bi,bj), frzmltMxL, flx2oc, |
|
./pkg/thsice/thsice_step_fwd.F |
333 |
THSICE_STEP_FWD |
I frzmltMxL, tFrzOce, |
|
./pkg/thsice/thsice_step_fwd.F |
99 |
THSICE_STEP_FWD |
_RL frzmltMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |