| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
332 |
SEAICE_DO_RIDGING |
hL = MAX(hrMin(i,j,k), hLimit(l-1)) |
|
./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 |
353 |
SEAICE_DO_RIDGING |
hL = MAX( hrMin(i,j,k), hLimit(l-1) ) |
|
./pkg/seaice/seaice_do_ridging.F |
355 |
SEAICE_DO_RIDGING |
expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
359 |
SEAICE_DO_RIDGING |
& ( ( hL + hrExp(i,j,k) ) * expL |
|
./pkg/seaice/seaice_do_ridging.F |
369 |
SEAICE_DO_RIDGING |
hL = MAX( hrMin(i,j,k), hLimit(l-1) ) |
|
./pkg/seaice/seaice_do_ridging.F |
370 |
SEAICE_DO_RIDGING |
expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
372 |
SEAICE_DO_RIDGING |
volFraction (i,j) = ( hL + hrExp(i,j,k) ) * expL |
|
./pkg/seaice/seaice_do_ridging.F |
95 |
SEAICE_DO_RIDGING |
_RL tmp, tmpFac, hL, hR, expL, expR |
|
./pkg/seaice/seaice_itd_remap.F |
223 |
SEAICE_ITD_REMAP |
hL(i,j,k) = hLimitNew(i,j,k-1) |
|
./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 |
279 |
SEAICE_ITD_REMAP |
hL(i,j,k) = hLimitNew(i,j,k-1) |
|
./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 |
299 |
SEAICE_ITD_REMAP |
etaMin = MAX( hLimit(k), hL(i,j,k)) - hL(i,j,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 |
320 |
SEAICE_ITD_REMAP |
& + darea*hL(i,j,kDonor) |
|
./pkg/seaice/seaice_itd_remap.F |
373 |
SEAICE_ITD_REMAP_LINEAR |
U hL, hR, |
|
./pkg/seaice/seaice_itd_remap.F |
410 |
SEAICE_ITD_REMAP_LINEAR |
_RL hL (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 |
463 |
SEAICE_ITD_REMAP_LINEAR |
etaNoR = (hActual(i,j) - hL(i,j))*recip_etaR |
|
./pkg/seaice/seaice_itd_remap.F |
471 |
SEAICE_ITD_REMAP_LINEAR |
hL(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
97 |
SEAICE_ITD_REMAP |
_RL hL (1:sNx,1:sNy,0:nITD) |