| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
144 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
279 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
280 |
SEAICE_DO_RIDGING |
IF ( ridgingArea(i,j) .GT. areaPR(i,j,k) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
281 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = areaPR(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
283 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = ridgingArea(i,j)/areaPR(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
284 |
SEAICE_DO_RIDGING |
ridgedArea(i,j) = ridgingArea(i,j)/ridgeRatio(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
299 |
SEAICE_DO_RIDGING |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - ridgingArea(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
80 |
SEAICE_DO_RIDGING |
_RL ridgingArea (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |