| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_step_fwd.F |
200 |
THSICE_STEP_FWD |
frzmltMxL(i,j) = ( tFrzOce(i,j)-tOceMxL(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_step_fwd.F |
207 |
THSICE_STEP_FWD |
IF (frzmltMxL(i,j).GT.0. .OR. iceFrac(i,j).GT.0.) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
214 |
THSICE_STEP_FWD |
& frzmltMxL(i,j), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
239 |
THSICE_STEP_FWD |
U icFrwAtm(siLo,sjLo,bi,bj), frzmltMxL, flx2oc, |
|
./pkg/thsice/thsice_step_fwd.F |
312 |
THSICE_STEP_FWD |
I frzmltMxL, tFrzOce, |
|
./pkg/thsice/thsice_step_fwd.F |
327 |
THSICE_STEP_FWD |
IF (frzmltMxL(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
93 |
THSICE_STEP_FWD |
_RL frzmltMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |