| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
329 |
SEAICE_DO_RIDGING |
hL = MAX(hrMin(i,j,k), hLimit(l-1)) |
|
./pkg/seaice/seaice_do_ridging.F |
331 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = ( hR - hL ) |
|
./pkg/seaice/seaice_do_ridging.F |
335 |
SEAICE_DO_RIDGING |
volFraction (i,j) = areaFraction(i,j)*( hR + hL ) |
|
./pkg/seaice/seaice_do_ridging.F |
350 |
SEAICE_DO_RIDGING |
hL = MAX( hrMin(i,j,k), hLimit(l-1) ) |
|
./pkg/seaice/seaice_do_ridging.F |
352 |
SEAICE_DO_RIDGING |
expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
356 |
SEAICE_DO_RIDGING |
& ( ( hL + hrExp(i,j,k) ) * expL |
|
./pkg/seaice/seaice_do_ridging.F |
366 |
SEAICE_DO_RIDGING |
hL = MAX( hrMin(i,j,k), hLimit(l-1) ) |
|
./pkg/seaice/seaice_do_ridging.F |
367 |
SEAICE_DO_RIDGING |
expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
369 |
SEAICE_DO_RIDGING |
volFraction (i,j) = ( hL + hrExp(i,j,k) ) * expL |
|
./pkg/seaice/seaice_do_ridging.F |
92 |
SEAICE_DO_RIDGING |
_RL tmp, tmpFac, hL, hR, expL, expR |