| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
191 |
SEAICE_DO_RIDGING |
divAdv = (1. _d 0-netArea(i,j)-opnWtrFrac(i,j,bi,bj)) |
|
./pkg/seaice/seaice_do_ridging.F |
193 |
SEAICE_DO_RIDGING |
IF (divAdv .LT. 0. _d 0) |
|
./pkg/seaice/seaice_do_ridging.F |
194 |
SEAICE_DO_RIDGING |
& closingRate(i,j) = MAX(closingRate(i,j), -divAdv) |
|
./pkg/seaice/seaice_do_ridging.F |
197 |
SEAICE_DO_RIDGING |
openingRate(i,j) = closingRate(i,j) + divAdv |
|
./pkg/seaice/seaice_do_ridging.F |
416 |
SEAICE_DO_RIDGING |
divAdv = (1. _d 0-tmp)*recip_deltaT |
|
./pkg/seaice/seaice_do_ridging.F |
417 |
SEAICE_DO_RIDGING |
closingRate(i,j) = MAX( 0. _d 0, -divAdv) |
|
./pkg/seaice/seaice_do_ridging.F |
418 |
SEAICE_DO_RIDGING |
openingRate(i,j) = MAX( 0. _d 0, divAdv) |
|
./pkg/seaice/seaice_do_ridging.F |
94 |
SEAICE_DO_RIDGING |
_RL recip_deltaT, convergence, divergence, shear, divAdv |