File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_step_fwd.F |
117 |
THSICE_STEP_FWD |
TFrzOce = -mu_Tf*sOceMxL(i,j,bi,bj) |
./pkg/thsice/thsice_step_fwd.F |
136 |
THSICE_STEP_FWD |
I useBulkforce, tmpflx, TFrzOce, hIce, hSnow, |
./pkg/thsice/thsice_step_fwd.F |
187 |
THSICE_STEP_FWD |
TFrzOce = -mu_Tf*sOceMxL(i,j,bi,bj) |
./pkg/thsice/thsice_step_fwd.F |
190 |
THSICE_STEP_FWD |
frzmltMxL = (TFrzOce-oceTs)*cphm/ocean_deltaT |
./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 |
300 |
THSICE_STEP_FWD |
I esurp, TFrzOce, |
./pkg/thsice/thsice_step_fwd.F |
318 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) = TFrzOce |
./pkg/thsice/thsice_step_fwd.F |
319 |
THSICE_STEP_FWD |
Tice1(i,j,bi,bj) = TFrzOce |
./pkg/thsice/thsice_step_fwd.F |
320 |
THSICE_STEP_FWD |
Tice2(i,j,bi,bj) = TFrzOce |
./pkg/thsice/thsice_step_fwd.F |
85 |
THSICE_STEP_FWD |
_RL TFrzOce, cphm, frzmltMxL |