| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
150 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = 0. _d 0 |
|
./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 |
290 |
SEAICE_DO_RIDGING |
ridgingHEFF(i,j) = heffPR(i,j,k) * areaFraction(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
291 |
SEAICE_DO_RIDGING |
ridgingHsnw(i,j) = hsnwPR(i,j,k) * areaFraction(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
315 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
329 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
334 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = ( hR - hL ) |
|
./pkg/seaice/seaice_do_ridging.F |
338 |
SEAICE_DO_RIDGING |
volFraction (i,j) = areaFraction(i,j)*( hR + hL ) |
|
./pkg/seaice/seaice_do_ridging.F |
357 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = expL - expR |
|
./pkg/seaice/seaice_do_ridging.F |
371 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = expL |
|
./pkg/seaice/seaice_do_ridging.F |
383 |
SEAICE_DO_RIDGING |
& +areaFraction(i,j)*ridgedArea(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
87 |
SEAICE_DO_RIDGING |
_RL areaFraction (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |