| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_ice_strength.F |
131 |
SEAICE_CALC_ICE_STRENGTH |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_calc_ice_strength.F |
157 |
SEAICE_CALC_ICE_STRENGTH |
& + 2. _d 0 * hrMin(i,j,k)*hrExp(i,j,k) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
158 |
SEAICE_CALC_ICE_STRENGTH |
& + 2. _d 0 * hrExp(i,j,k)*hrExp(i,j,k) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
74 |
SEAICE_CALC_ICE_STRENGTH |
_RL hrExp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |
|
./pkg/seaice/seaice_do_ridging.F |
155 |
SEAICE_DO_RIDGING |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_do_ridging.F |
349 |
SEAICE_DO_RIDGING |
& .AND. hrExp(i,j,k) .NE. 0. _d 0 ) THEN |
|
./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 |
353 |
SEAICE_DO_RIDGING |
expR = EXP(-( hR - 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 |
357 |
SEAICE_DO_RIDGING |
& - ( hR + hrExp(i,j,k) ) * expR ) |
|
./pkg/seaice/seaice_do_ridging.F |
358 |
SEAICE_DO_RIDGING |
& / ( hrMin(i,j,k) + hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
365 |
SEAICE_DO_RIDGING |
IF ( doRidging(i,j) .AND. hrExp(i,j,k) .NE. 0. _d 0 ) THEN |
|
./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 |
370 |
SEAICE_DO_RIDGING |
& / ( hrMin(i,j,k) + hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
447 |
SEAICE_DO_RIDGING |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_do_ridging.F |
68 |
SEAICE_DO_RIDGING |
_RL hrExp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
12 |
SEAICE_PREPARE_RIDGING |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_prepare_ridging.F |
203 |
SEAICE_PREPARE_RIDGING |
hrExp(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
241 |
SEAICE_PREPARE_RIDGING |
hrExp(i,j,k) = SEAICEmuRidging*SQRT(tmp) |
|
./pkg/seaice/seaice_prepare_ridging.F |
243 |
SEAICE_PREPARE_RIDGING |
ridgeRatio(i,j,k)=(hrMin(i,j,k)+hrExp(i,j,k))/tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
68 |
SEAICE_PREPARE_RIDGING |
_RL hrExp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |