| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
210 |
SEAICE_DO_RIDGING |
areaPR(i,j,k) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
242 |
SEAICE_DO_RIDGING |
IF ( areaPR(i,j,k) .GT. SEAICE_area_reg |
|
./pkg/seaice/seaice_do_ridging.F |
273 |
SEAICE_DO_RIDGING |
doRidging(i,j) = areaPR(i,j,k) .GT. SEAICE_area_reg |
|
./pkg/seaice/seaice_do_ridging.F |
283 |
SEAICE_DO_RIDGING |
IF ( ridgingArea(i,j) .GT. areaPR(i,j,k) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
284 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = areaPR(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
286 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = ridgingArea(i,j)/areaPR(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
96 |
SEAICE_DO_RIDGING |
_RL areaPR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |