| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_ice_strength.F |
130 |
SEAICE_CALC_ICE_STRENGTH |
O hActual, |
|
./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 |
76 |
SEAICE_CALC_ICE_STRENGTH |
_RL hActual (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |
|
./pkg/seaice/seaice_do_ridging.F |
154 |
SEAICE_DO_RIDGING |
O hActual, |
|
./pkg/seaice/seaice_do_ridging.F |
446 |
SEAICE_DO_RIDGING |
O hActual, |
|
./pkg/seaice/seaice_do_ridging.F |
71 |
SEAICE_DO_RIDGING |
_RL hActual (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
104 |
SEAICE_PREPARE_RIDGING |
hActual(i,j,k) = SQRT(tmp * tmp + hice_reg_sq) |
|
./pkg/seaice/seaice_prepare_ridging.F |
11 |
SEAICE_PREPARE_RIDGING |
O hActual, |
|
./pkg/seaice/seaice_prepare_ridging.F |
215 |
SEAICE_PREPARE_RIDGING |
IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN |
|
./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 |
218 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = 2. _d 0 * SQRT(hActual(i,j,k)*SEAICEhStar) |
|
./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 |
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 |
236 |
SEAICE_PREPARE_RIDGING |
IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
239 |
SEAICE_PREPARE_RIDGING |
tmp = hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
70 |
SEAICE_PREPARE_RIDGING |
_RL hActual (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
95 |
SEAICE_PREPARE_RIDGING |
hActual(i,j,k) = 0. _d 0 |