| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_ice_strength.F |
134 |
SEAICE_CALC_ICE_STRENGTH |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_calc_ice_strength.F |
144 |
SEAICE_CALC_ICE_STRENGTH |
IF ( partFunc(i,j,k) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
146 |
SEAICE_CALC_ICE_STRENGTH |
& + partFunc(i,j,k) * ( - hActual(i,j,k)**2 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
158 |
SEAICE_CALC_ICE_STRENGTH |
& + partFunc(i,j,k) * ( - hActual(i,j,k)**2 + |
|
./pkg/seaice/seaice_calc_ice_strength.F |
70 |
SEAICE_CALC_ICE_STRENGTH |
_RL partFunc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,0:nITD) |
|
./pkg/seaice/seaice_do_ridging.F |
158 |
SEAICE_DO_RIDGING |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_do_ridging.F |
228 |
SEAICE_DO_RIDGING |
IF ( partFunc(i,j,0) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
229 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,0)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
243 |
SEAICE_DO_RIDGING |
& .AND. partFunc(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
244 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
261 |
SEAICE_DO_RIDGING |
& - partFunc(i,j,0)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
274 |
SEAICE_DO_RIDGING |
& .AND. partFunc(i,j,k) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
282 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
450 |
SEAICE_DO_RIDGING |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_do_ridging.F |
64 |
SEAICE_DO_RIDGING |
_RL partFunc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,0:nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
156 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
158 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = |
|
./pkg/seaice/seaice_prepare_ridging.F |
15 |
SEAICE_PREPARE_RIDGING |
O hrMin, hrMax, hrExp, ridgeRatio, ridgingModeNorm, partFunc, |
|
./pkg/seaice/seaice_prepare_ridging.F |
163 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = |
|
./pkg/seaice/seaice_prepare_ridging.F |
188 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = gSum(i,j,k-1) - gSum(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
263 |
SEAICE_PREPARE_RIDGING |
ridgingModeNorm(i,j) = partFunc(i,j,0) |
|
./pkg/seaice/seaice_prepare_ridging.F |
269 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = partFunc(i,j,k) * heffM(i,j,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
271 |
SEAICE_PREPARE_RIDGING |
& + partFunc(i,j,k)*( 1. _d 0 - 1. _d 0/ridgeRatio(i,j,k) ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
68 |
SEAICE_PREPARE_RIDGING |
_RL partFunc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,0:nITD) |