| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_ridging.F |
325 |
SEAICE_DO_RIDGING |
IF ( hrMin(i,j,k) .GE. hLimit(l) .OR. |
|
./pkg/seaice/seaice_do_ridging.F |
326 |
SEAICE_DO_RIDGING |
& hrMax(i,j,k) .LE. hLimit(l-1) ) THEN |
|
./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 |
333 |
SEAICE_DO_RIDGING |
hR = MIN(hrMax(i,j,k), hLimit(l)) |
|
./pkg/seaice/seaice_do_ridging.F |
351 |
SEAICE_DO_RIDGING |
& .AND. hrMin(i,j,k) .LT. hLimit(l) |
|
./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 |
354 |
SEAICE_DO_RIDGING |
hR = hLimit(l) |
|
./pkg/seaice/seaice_do_ridging.F |
369 |
SEAICE_DO_RIDGING |
hL = MAX( hrMin(i,j,k), hLimit(l-1) ) |
|
./pkg/seaice/seaice_itd_remap.F |
155 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,0) = hLimit(0) |
|
./pkg/seaice/seaice_itd_remap.F |
165 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) + dhActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
166 |
SEAICE_ITD_REMAP |
& + slope * ( hLimit(k) - hActualPre(i,j,k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
168 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) + dhActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
170 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) + dhActual(i,j,k+1) |
|
./pkg/seaice/seaice_itd_remap.F |
172 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
184 |
SEAICE_ITD_REMAP |
IF ( ( hLimitNew(i,j,k) .GT. hLimit(k+1) ) .OR. |
|
./pkg/seaice/seaice_itd_remap.F |
185 |
SEAICE_ITD_REMAP |
& ( hLimitNew(i,j,k) .LT. hLimit(k-1) ) ) |
|
./pkg/seaice/seaice_itd_remap.F |
203 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
206 |
SEAICE_ITD_REMAP |
& - 2. _d 0 * hLimitNew(i,j,k-1), hLimit(k-1) ) |
|
./pkg/seaice/seaice_itd_remap.F |
224 |
SEAICE_ITD_REMAP |
hR(i,j,k) = hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
244 |
SEAICE_ITD_REMAP |
dh0 = MIN(-dhActual(i,j,k),hLimit(k)) |
|
./pkg/seaice/seaice_itd_remap.F |
265 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k-1) = MIN( dhActual(i,j,k), hLimit(k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
298 |
SEAICE_ITD_REMAP |
IF ( hLimitNew(i,j,k) .GT. hLimit(k) ) THEN |
|
./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 |
305 |
SEAICE_ITD_REMAP |
etaMax = MIN(hLimit(k), hR(i,j,k+1)) - hL(i,j,k+1) |
|
./pkg/seaice/seaice_itd_remap.F |
566 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hLimitNew(i,j,k), hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
568 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( hLimitNew(i,j,k) .GT. hLimit(k+1) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
575 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( hLimitNew(i,j,k) .LT. hLimit(k-1) ) THEN |