New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8555 – NEMO

Changeset 8555


Ignore:
Timestamp:
2017-09-22T11:21:22+02:00 (6 years ago)
Author:
clem
Message:

bug fix

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icedyn_rdgrft.F90

    r8554 r8555  
    223223            IF( SUM( ABS(apartf(ji,1:jpl)) ) > 0._wp .AND. closing_gross(ji) > 0._wp ) THEN 
    224224               nidx2 = nidx2 + 1 
    225                idxice2(nidx2) = idxice(ji) 
    226                a_i_2d(nidx2,:) = a_i_2d(ji,:)  ! adjust to new indices 
    227                v_i_2d(nidx2,:) = v_i_2d(ji,:)  ! adjust to new indices 
    228                ato_i_1d(nidx2) = ato_i_1d(ji)  ! adjust to new indices 
     225               idxice2    (nidx2)   = idxice     (ji) 
     226               a_i_2d     (nidx2,:) = a_i_2d     (ji,:)  ! adjust to new indices 
     227               v_i_2d     (nidx2,:) = v_i_2d     (ji,:)  ! adjust to new indices 
     228               ato_i_1d   (nidx2)   = ato_i_1d   (ji)    ! adjust to new indices 
     229               closing_net(nidx2)   = closing_net(ji)    ! adjust to new indices 
     230               zdivu_adv  (nidx2)   = zdivu_adv  (ji)    ! adjust to new indices 
     231               opning     (nidx2)   = opning     (ji)    ! adjust to new indices 
    229232            ENDIF 
    230233         END DO 
Note: See TracChangeset for help on using the changeset viewer.