| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
133 |
SEAICE_BOTTOMDRAG_COEFFS |
hActual = HEFFITD(I,J,k,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
137 |
SEAICE_BOTTOMDRAG_COEFFS |
hActual = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
150 |
SEAICE_BOTTOMDRAG_COEFFS |
& * LOG(EXP( fac*(hActual - hCrit) ) + 1. _d 0)*rFac |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
81 |
SEAICE_BOTTOMDRAG_COEFFS |
_RL tmp, hActual, hCrit, recip_k1, u0sq, fac, rFac |
|
./pkg/seaice/seaice_calc_ice_strength.F |
133 |
SEAICE_CALC_ICE_STRENGTH |
O hActual, |
|
./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 |
75 |
SEAICE_CALC_ICE_STRENGTH |
_RL hActual (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |
|
./pkg/seaice/seaice_do_ridging.F |
157 |
SEAICE_DO_RIDGING |
O hActual, |
|
./pkg/seaice/seaice_do_ridging.F |
449 |
SEAICE_DO_RIDGING |
O hActual, |
|
./pkg/seaice/seaice_do_ridging.F |
74 |
SEAICE_DO_RIDGING |
_RL hActual (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |
|
./pkg/seaice/seaice_itd_remap.F |
124 |
SEAICE_ITD_REMAP |
hActual (i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
133 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
137 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = hActual(i,j,k) - hActualPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
143 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj)/AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
145 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = hActual(i,j,k) - hActualPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
177 |
SEAICE_ITD_REMAP |
& hActual(i,j,k) .GE. hLimitNew(i,j,k) ) .OR. |
|
./pkg/seaice/seaice_itd_remap.F |
179 |
SEAICE_ITD_REMAP |
& hActual(i,j,k+1) .LE. hLimitNew(i,j,k) ) ) |
|
./pkg/seaice/seaice_itd_remap.F |
196 |
SEAICE_ITD_REMAP |
I AREAITD, hActual, hActualPre, hLimitNew, doRemapping, |
|
./pkg/seaice/seaice_itd_remap.F |
205 |
SEAICE_ITD_REMAP |
& hLimitNew(i,j,k) = MAX( 3. _d 0*hActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
230 |
SEAICE_ITD_REMAP |
I hActual(1,1,k), aLoc, |
|
./pkg/seaice/seaice_itd_remap.F |
250 |
SEAICE_ITD_REMAP |
& * ( 1. _d 0 - hActual(i,j,k)/hActualPre(i,j,k)) |
|
./pkg/seaice/seaice_itd_remap.F |
254 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = hActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
257 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = ZERO |
|
./pkg/seaice/seaice_itd_remap.F |
286 |
SEAICE_ITD_REMAP |
I hActual(1,1,k), aLoc, |
|
./pkg/seaice/seaice_itd_remap.F |
374 |
SEAICE_ITD_REMAP_LINEAR |
I hActual, area, |
|
./pkg/seaice/seaice_itd_remap.F |
415 |
SEAICE_ITD_REMAP_LINEAR |
_RL hActual (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_itd_remap.F |
450 |
SEAICE_ITD_REMAP_LINEAR |
IF ( hActual(i,j) .LT. (2. _d 0*hL(i,j) + hR(i,j))*third ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
451 |
SEAICE_ITD_REMAP_LINEAR |
hR(i,j) = 3. _d 0 * hActual(i,j) - 2. _d 0 * hL(i,j) |
|
./pkg/seaice/seaice_itd_remap.F |
452 |
SEAICE_ITD_REMAP_LINEAR |
ELSEIF ( hActual(i,j).GT.(hL(i,j)+2. _d 0*hR(i,j))*third ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
453 |
SEAICE_ITD_REMAP_LINEAR |
hL(i,j) = 3. _d 0 * hActual(i,j) - 2. _d 0 * hR(i,j) |
|
./pkg/seaice/seaice_itd_remap.F |
463 |
SEAICE_ITD_REMAP_LINEAR |
etaNoR = (hActual(i,j) - hL(i,j))*recip_etaR |
|
./pkg/seaice/seaice_itd_remap.F |
487 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
I AREAITD, hActual, hActualPre, hLimitNew, doRemapping, |
|
./pkg/seaice/seaice_itd_remap.F |
518 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
_RL hActual (1:sNx,1:sNy,1:nITD) |
|
./pkg/seaice/seaice_itd_remap.F |
545 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActual(i,j,k) .GE. hLimitNew(i,j,k) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
555 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActual(i,j,k+1) .LE. hLimitNew(i,j,k) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
562 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& AREAITD(i,j,k+1,bi,bj), hActual(i,j,k+1), |
|
./pkg/seaice/seaice_itd_remap.F |
564 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& AREAITD(i,j,k,bi,bj), hActual(i,j,k), |
|
./pkg/seaice/seaice_itd_remap.F |
85 |
SEAICE_ITD_REMAP |
_RL hActual (1:sNx,1:sNy,1:nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
107 |
SEAICE_PREPARE_RIDGING |
hActual(i,j,k) = SQRT(tmp * tmp + hice_reg_sq) |
|
./pkg/seaice/seaice_prepare_ridging.F |
14 |
SEAICE_PREPARE_RIDGING |
O hActual, |
|
./pkg/seaice/seaice_prepare_ridging.F |
218 |
SEAICE_PREPARE_RIDGING |
IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
220 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = 2. _d 0 * hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
221 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = 2. _d 0 * SQRT(hActual(i,j,k)*SEAICEhStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
224 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = MIN(hrMin(i,j,k),hActual(i,j,k)+SEAICEmaxRaft) |
|
./pkg/seaice/seaice_prepare_ridging.F |
228 |
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 |
239 |
SEAICE_PREPARE_RIDGING |
IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
242 |
SEAICE_PREPARE_RIDGING |
tmp = hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
73 |
SEAICE_PREPARE_RIDGING |
_RL hActual (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
98 |
SEAICE_PREPARE_RIDGING |
hActual(i,j,k) = 0. _d 0 |