| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
333 |
SEAICE_DO_RIDGING |
hR = MIN(hrMax(i,j,k), hLimit(l)) |
|
./pkg/seaice/seaice_do_ridging.F |
334 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = ( hR - hL ) |
|
./pkg/seaice/seaice_do_ridging.F |
338 |
SEAICE_DO_RIDGING |
volFraction (i,j) = areaFraction(i,j)*( hR + hL ) |
|
./pkg/seaice/seaice_do_ridging.F |
354 |
SEAICE_DO_RIDGING |
hR = hLimit(l) |
|
./pkg/seaice/seaice_do_ridging.F |
356 |
SEAICE_DO_RIDGING |
expR = EXP(-( hR - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
360 |
SEAICE_DO_RIDGING |
& - ( hR + hrExp(i,j,k) ) * expR ) |
|
./pkg/seaice/seaice_do_ridging.F |
95 |
SEAICE_DO_RIDGING |
_RL tmp, tmpFac, hL, hR, expL, expR |
|
./pkg/seaice/seaice_itd_remap.F |
224 |
SEAICE_ITD_REMAP |
hR(i,j,k) = hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
229 |
SEAICE_ITD_REMAP |
U hL(1,1,k), hR(1,1,k), |
|
./pkg/seaice/seaice_itd_remap.F |
245 |
SEAICE_ITD_REMAP |
etaMax = MIN(dh0,hR(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
280 |
SEAICE_ITD_REMAP |
hR(i,j,k) = hLimitNew(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
285 |
SEAICE_ITD_REMAP |
U hL(1,1,k), hR(1,1,k), |
|
./pkg/seaice/seaice_itd_remap.F |
300 |
SEAICE_ITD_REMAP |
etaMax = MIN(hLimitNew(i,j,k), hR(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
305 |
SEAICE_ITD_REMAP |
etaMax = MIN(hLimit(k), hR(i,j,k+1)) - hL(i,j,k+1) |
|
./pkg/seaice/seaice_itd_remap.F |
373 |
SEAICE_ITD_REMAP_LINEAR |
U hL, hR, |
|
./pkg/seaice/seaice_itd_remap.F |
411 |
SEAICE_ITD_REMAP_LINEAR |
_RL hR (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_itd_remap.F |
448 |
SEAICE_ITD_REMAP_LINEAR |
& hR(i,j) - hL(i,j) .GT. SEAICE_eps ) THEN |
|
./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 |
460 |
SEAICE_ITD_REMAP_LINEAR |
IF ( hR(i,j) - hL(i,j) .GT. SEAICE_eps ) |
|
./pkg/seaice/seaice_itd_remap.F |
461 |
SEAICE_ITD_REMAP_LINEAR |
& recip_etaR = 1. _d 0 / (hR(i,j) - hL(i,j)) |
|
./pkg/seaice/seaice_itd_remap.F |
472 |
SEAICE_ITD_REMAP_LINEAR |
hR(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
98 |
SEAICE_ITD_REMAP |
_RL hR (1:sNx,1:sNy,0:nITD) |