Changeset 8555

Timestamp:

2017-09-22T11:21:22+02:00 (7 years ago)

Author:

clem

Message:

bug fix

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedyn_rdgrft.F90 (modified) (1 diff)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedyn_rdgrft.F90

@@ -223 +223 @@
             IF( SUM( ABS(apartf(ji,1:jpl)) ) > 0._wp .AND. closing_gross(ji) > 0._wp ) THEN
                nidx2 = nidx2 + 1
-               idxice2(nidx2) = idxice(ji)
-               a_i_2d(nidx2,:) = a_i_2d(ji,:)  ! adjust to new indices
-               v_i_2d(nidx2,:) = v_i_2d(ji,:)  ! adjust to new indices
-               ato_i_1d(nidx2) = ato_i_1d(ji)  ! adjust to new indices
+               idxice2    (nidx2)   = idxice     (ji)
+               a_i_2d     (nidx2,:) = a_i_2d     (ji,:)  ! adjust to new indices
+               v_i_2d     (nidx2,:) = v_i_2d     (ji,:)  ! adjust to new indices
+               ato_i_1d   (nidx2)   = ato_i_1d   (ji)    ! adjust to new indices
+               closing_net(nidx2)   = closing_net(ji)    ! adjust to new indices
+               zdivu_adv  (nidx2)   = zdivu_adv  (ji)    ! adjust to new indices
+               opning     (nidx2)   = opning     (ji)    ! adjust to new indices
             ENDIF
          END DO