| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_itd_remap.F |
125 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = 0. _d 0 |
|
./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 |
145 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = hActual(i,j,k) - hActualPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
163 |
SEAICE_ITD_REMAP |
slope = ( dhActual(i,j,k+1) - dhActual(i,j,k) ) |
|
./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 |
241 |
SEAICE_ITD_REMAP |
IF ( dhActual(i,j,k) .LT. 0. _d 0 ) THEN |
|
./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 |
84 |
SEAICE_ITD_REMAP |
_RL dhActual (1:sNx,1:sNy,1:nITD) |