| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_itd_remap.F |
123 |
SEAICE_ITD_REMAP |
hActualPre (i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
128 |
SEAICE_ITD_REMAP |
hActualPre(i,j,k) = heffitdPre(i,j,k) |
|
./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 |
140 |
SEAICE_ITD_REMAP |
hActualPre(i,j,k) = heffitdPre(i,j,k)/areaitdPre(i,j,k) |
|
./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 |
161 |
SEAICE_ITD_REMAP |
IF ( hActualPre(i,j,k) .GT.SEAICE_eps .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
162 |
SEAICE_ITD_REMAP |
& hActualPre(i,j,k+1).GT.SEAICE_eps ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
164 |
SEAICE_ITD_REMAP |
& /( hActualPre(i,j,k+1) - hActualPre(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 |
167 |
SEAICE_ITD_REMAP |
ELSEIF ( hActualPre(i,j,k) .GT.SEAICE_eps ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
169 |
SEAICE_ITD_REMAP |
ELSEIF ( hActualPre(i,j,k+1).GT.SEAICE_eps ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
196 |
SEAICE_ITD_REMAP |
I AREAITD, hActual, hActualPre, hLimitNew, doRemapping, |
|
./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 |
487 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
I AREAITD, hActual, hActualPre, hLimitNew, doRemapping, |
|
./pkg/seaice/seaice_itd_remap.F |
519 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
_RL hActualPre(1:sNx,1:sNy,1:nITD) |
|
./pkg/seaice/seaice_itd_remap.F |
563 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActualPre(i,j,k+1), |
|
./pkg/seaice/seaice_itd_remap.F |
565 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActualPre(i,j,k), |
|
./pkg/seaice/seaice_itd_remap.F |
86 |
SEAICE_ITD_REMAP |
_RL hActualPre (1:sNx,1:sNy,1:nITD) |