File |
Line number |
Procedure |
Code |
./pkg/sbo/sbo_calc.F |
107 |
SBO_CALC |
_RL lat, lon, darea, dvolume |
./pkg/sbo/sbo_calc.F |
230 |
SBO_CALC |
darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
./pkg/sbo/sbo_calc.F |
231 |
SBO_CALC |
tile_sboarea(bi,bj) = tile_sboarea(bi,bj) + darea |
./pkg/sbo/sbo_calc.F |
233 |
SBO_CALC |
& rhoConst*etaN(i,j,bi,bj)*darea + |
./pkg/sbo/sbo_calc.F |
234 |
SBO_CALC |
& sIceLoad(i,j,bi,bj)*darea |
./pkg/sbo/sbo_calc.F |
323 |
SBO_CALC |
darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
./pkg/sbo/sbo_calc.F |
327 |
SBO_CALC |
& Mload(i,j,bi,bj)*darea |
./pkg/sbo/sbo_calc.F |
329 |
SBO_CALC |
& GCload*darea |
./pkg/sbo/sbo_calc.F |
331 |
SBO_CALC |
& sIceLoad(i,j,bi,bj)*darea |
./pkg/sbo/sbo_calc.F |
336 |
SBO_CALC |
& * ae * darea |
./pkg/sbo/sbo_calc.F |
339 |
SBO_CALC |
& * ae * darea |
./pkg/sbo/sbo_calc.F |
342 |
SBO_CALC |
& * ae * darea |
./pkg/sbo/sbo_calc.F |
369 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
./pkg/sbo/sbo_calc.F |
374 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
./pkg/sbo/sbo_calc.F |
377 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
./pkg/sbo/sbo_calc.F |
382 |
SBO_CALC |
& * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea |
./pkg/sbo/sbo_calc.F |
385 |
SBO_CALC |
& * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea |
./pkg/sbo/sbo_calc.F |
388 |
SBO_CALC |
& * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea |
./pkg/sbo/sbo_calc.F |
392 |
SBO_CALC |
& FWload * darea |
./pkg/sbo/sbo_calc.F |
397 |
SBO_CALC |
& * ae * darea |
./pkg/sbo/sbo_calc.F |
400 |
SBO_CALC |
& * ae * darea |
./pkg/sbo/sbo_calc.F |
403 |
SBO_CALC |
& * ae * darea |
./pkg/sbo/sbo_calc.F |
408 |
SBO_CALC |
& * sbo_omega * FWload * ae*ae * darea |
./pkg/sbo/sbo_calc.F |
411 |
SBO_CALC |
& * sbo_omega * FWload * ae*ae * darea |
./pkg/sbo/sbo_calc.F |
414 |
SBO_CALC |
& * sbo_omega * FWload * ae*ae * darea |
./pkg/seaice/seaice_itd_remap.F |
295 |
SEAICE_ITD_REMAP |
darea = 0. _d 0 |
./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 |
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 |
327 |
SEAICE_ITD_REMAP |
darea = AREAITD(i,j,kDonor,bi,bj) |
./pkg/seaice/seaice_itd_remap.F |
333 |
SEAICE_ITD_REMAP |
IF ( (darea .LT. SEAICE_eps).OR. |
./pkg/seaice/seaice_itd_remap.F |
335 |
SEAICE_ITD_REMAP |
darea = 0. _d 0 |
./pkg/seaice/seaice_itd_remap.F |
341 |
SEAICE_ITD_REMAP |
dhsnw = darea/AREAITD(i,j,kDonor,bi,bj) |
./pkg/seaice/seaice_itd_remap.F |
352 |
SEAICE_ITD_REMAP |
AREAITD(i,j,kRecvr,bi,bj) = AREAITD(i,j,kRecvr,bi,bj) + darea |
./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 |
87 |
SEAICE_ITD_REMAP |
_RL dheff, darea, dhsnw |