| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_itd_remap.F |
301 |
SEAICE_ITD_REMAP |
kDonor = k |
|
./pkg/seaice/seaice_itd_remap.F |
306 |
SEAICE_ITD_REMAP |
kDonor = k+1 |
|
./pkg/seaice/seaice_itd_remap.F |
314 |
SEAICE_ITD_REMAP |
darea = g0(i,j,kDonor)*etam + g1(i,j,kDonor)*eta2 |
|
./pkg/seaice/seaice_itd_remap.F |
318 |
SEAICE_ITD_REMAP |
dheff = g0(i,j,kDonor)*eta2 |
|
./pkg/seaice/seaice_itd_remap.F |
319 |
SEAICE_ITD_REMAP |
& + g1(i,j,kDonor)*(etaMax**3-etaMin**3)*third |
|
./pkg/seaice/seaice_itd_remap.F |
320 |
SEAICE_ITD_REMAP |
& + darea*hL(i,j,kDonor) |
|
./pkg/seaice/seaice_itd_remap.F |
325 |
SEAICE_ITD_REMAP |
IF ( (darea .GT.AREAITD(i,j,kDonor,bi,bj)-SEAICE_eps).OR. |
|
./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 |
327 |
SEAICE_ITD_REMAP |
darea = AREAITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
328 |
SEAICE_ITD_REMAP |
dheff = HEFFITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
339 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,kDonor,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
341 |
SEAICE_ITD_REMAP |
dhsnw = darea/AREAITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
342 |
SEAICE_ITD_REMAP |
& * HSNOWITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
347 |
SEAICE_ITD_REMAP |
dhsnw = HSNOWITD(i,j,kDonor,bi,bj) |
|
./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 |
353 |
SEAICE_ITD_REMAP |
AREAITD(i,j,kDonor,bi,bj) = AREAITD(i,j,kDonor,bi,bj) - darea |
|
./pkg/seaice/seaice_itd_remap.F |
355 |
SEAICE_ITD_REMAP |
HSNOWITD(i,j,kDonor,bi,bj)=HSNOWITD(i,j,kDonor,bi,bj) - dhsnw |
|
./pkg/seaice/seaice_itd_remap.F |
76 |
SEAICE_ITD_REMAP |
INTEGER kDonor, kRecvr |