| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_itd_remap.F |
294 |
SEAICE_ITD_REMAP |
dheff = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
318 |
SEAICE_ITD_REMAP |
dheff = g0(i,j,kDonor)*eta2 |
|
./pkg/seaice/seaice_itd_remap.F |
326 |
SEAICE_ITD_REMAP |
& (dheff .GT.HEFFITD(i,j,kDonor,bi,bj)-SEAICE_eps) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
328 |
SEAICE_ITD_REMAP |
dheff = HEFFITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
334 |
SEAICE_ITD_REMAP |
& (dheff .LT. SEAICE_eps) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
336 |
SEAICE_ITD_REMAP |
dheff = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
350 |
SEAICE_ITD_REMAP |
HEFFITD(i,j,kRecvr,bi,bj) = HEFFITD(i,j,kRecvr,bi,bj) + dheff |
|
./pkg/seaice/seaice_itd_remap.F |
351 |
SEAICE_ITD_REMAP |
HEFFITD(i,j,kDonor,bi,bj) = HEFFITD(i,j,kDonor,bi,bj) - dheff |
|
./pkg/seaice/seaice_itd_remap.F |
87 |
SEAICE_ITD_REMAP |
_RL dheff, darea, dhsnw |