| 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 |
141 |
SEAICE_CALC_ICE_STRENGTH |
IF ( partFunc(i,j,k) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
143 |
SEAICE_CALC_ICE_STRENGTH |
& + partFunc(i,j,k) * ( - hActual(i,j,k)**2 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
155 |
SEAICE_CALC_ICE_STRENGTH |
& + partFunc(i,j,k) * ( - hActual(i,j,k)**2 + |
|
./pkg/seaice/seaice_calc_ice_strength.F |
71 |
SEAICE_CALC_ICE_STRENGTH |
_RL partFunc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,0:nITD) |
|
./pkg/seaice/seaice_do_ridging.F |
155 |
SEAICE_DO_RIDGING |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_do_ridging.F |
225 |
SEAICE_DO_RIDGING |
IF ( partFunc(i,j,0) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
226 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,0)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
240 |
SEAICE_DO_RIDGING |
& .AND. partFunc(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
241 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
258 |
SEAICE_DO_RIDGING |
& - partFunc(i,j,0)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
271 |
SEAICE_DO_RIDGING |
& .AND. partFunc(i,j,k) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
279 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
447 |
SEAICE_DO_RIDGING |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_do_ridging.F |
61 |
SEAICE_DO_RIDGING |
_RL partFunc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,0:nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
12 |
SEAICE_PREPARE_RIDGING |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_prepare_ridging.F |
153 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
155 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = |
|
./pkg/seaice/seaice_prepare_ridging.F |
160 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = |
|
./pkg/seaice/seaice_prepare_ridging.F |
185 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = gSum(i,j,k-1) - gSum(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
260 |
SEAICE_PREPARE_RIDGING |
ridgingModeNorm(i,j) = partFunc(i,j,0) |
|
./pkg/seaice/seaice_prepare_ridging.F |
266 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = partFunc(i,j,k) * heffM(i,j,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
268 |
SEAICE_PREPARE_RIDGING |
& + partFunc(i,j,k)*( 1. _d 0 - 1. _d 0/ridgeRatio(i,j,k) ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
65 |
SEAICE_PREPARE_RIDGING |
_RL partFunc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,0:nITD) |