| 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 |
144 |
SEAICE_CALC_ICE_STRENGTH |
& + ( hrMax(i,j,k)**2 + hrMin(i,j,k)**2 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
145 |
SEAICE_CALC_ICE_STRENGTH |
& + hrMax(i,j,k)*hrMin(i,j,k) )*tmpscal1 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
156 |
SEAICE_CALC_ICE_STRENGTH |
& ( hrMin(i,j,k)*hrMin(i,j,k) |
|
./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 |
72 |
SEAICE_CALC_ICE_STRENGTH |
_RL hrMin (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 |
322 |
SEAICE_DO_RIDGING |
IF ( hrMin(i,j,k) .GE. hLimit(l) .OR. |
|
./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 |
332 |
SEAICE_DO_RIDGING |
& / ( hrMax(i,j,k) - hrMin(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
336 |
SEAICE_DO_RIDGING |
& / ( hrMax(i,j,k) + hrMin(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
348 |
SEAICE_DO_RIDGING |
& .AND. hrMin(i,j,k) .LT. hLimit(l) |
|
./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 |
353 |
SEAICE_DO_RIDGING |
expR = EXP(-( hR - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
358 |
SEAICE_DO_RIDGING |
& / ( hrMin(i,j,k) + hrExp(i,j,k) ) |
|
./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 |
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 |
66 |
SEAICE_DO_RIDGING |
_RL hrMin (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 |
201 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
217 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = 2. _d 0 * hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
221 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = MIN(hrMin(i,j,k),hActual(i,j,k)+SEAICEmaxRaft) |
|
./pkg/seaice/seaice_prepare_ridging.F |
222 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = MAX(hrMax(i,j,k),hrMin(i,j,k)+SEAICE_hice_reg) |
|
./pkg/seaice/seaice_prepare_ridging.F |
225 |
SEAICE_PREPARE_RIDGING |
& 0.5 _d 0 * (hrMax(i,j,k)+hrMin(i,j,k))/hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
240 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = MIN(2.D0 * tmp, tmp+SEAICEmaxRaft) |
|
./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 |
66 |
SEAICE_PREPARE_RIDGING |
_RL hrMin (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |