| File |
Line number |
Procedure |
Code |
|
./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 |
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 |
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 |
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 |
196 |
SEAICE_ITD_REMAP |
I AREAITD, hActual, hActualPre, hLimitNew, doRemapping, |
|
./pkg/seaice/seaice_itd_remap.F |
203 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) |
|
./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 |
206 |
SEAICE_ITD_REMAP |
& - 2. _d 0 * hLimitNew(i,j,k-1), hLimit(k-1) ) |
|
./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 |
265 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k-1) = MIN( dhActual(i,j,k), hLimit(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 |
280 |
SEAICE_ITD_REMAP |
hR(i,j,k) = hLimitNew(i,j,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 |
300 |
SEAICE_ITD_REMAP |
etaMax = MIN(hLimitNew(i,j,k), hR(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
487 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
I AREAITD, hActual, hActualPre, hLimitNew, doRemapping, |
|
./pkg/seaice/seaice_itd_remap.F |
521 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
_RL hLimitNew (1:sNx,1:sNy,0: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 |
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 |
|
./pkg/seaice/seaice_itd_remap.F |
89 |
SEAICE_ITD_REMAP |
_RL hLimitNew (1:sNx,1:sNy,0:nITD) |