| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
146 |
SEAICE_DO_RIDGING |
ridgingHsnw(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
288 |
SEAICE_DO_RIDGING |
ridgingHsnw(i,j) = hsnwPR(i,j,k) * areaFraction(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
293 |
SEAICE_DO_RIDGING |
& + SEAICE_rhoSnow*ridgingHsnw(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
296 |
SEAICE_DO_RIDGING |
ridgingHsnw(i,j) = ridgingHsnw(i,j) * SEAICEsnowFracRidge |
|
./pkg/seaice/seaice_do_ridging.F |
301 |
SEAICE_DO_RIDGING |
HSNOWITD(i,j,k,bi,bj)=HSNOWITD(i,j,k,bi,bj) - ridgingHsnw(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
384 |
SEAICE_DO_RIDGING |
& +volFraction(i,j)*ridgingHsnw(i,j)*SEAICEsnowFracRidge |
|
./pkg/seaice/seaice_do_ridging.F |
82 |
SEAICE_DO_RIDGING |
_RL ridgingHsnw (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |