| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
222 |
SEAICE_DO_RIDGING |
grossClosing(i,j) = closingRate(i,j)*SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_do_ridging.F |
226 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,0)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
229 |
SEAICE_DO_RIDGING |
grossClosing(i,j) = grossClosing(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
241 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
244 |
SEAICE_DO_RIDGING |
grossClosing(i,j) = grossClosing(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
258 |
SEAICE_DO_RIDGING |
& - partFunc(i,j,0)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
272 |
SEAICE_DO_RIDGING |
& .AND. grossClosing(i,j) .GT. 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 |
78 |
SEAICE_DO_RIDGING |
_RL grossClosing (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |