Changeset 13786 for NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbdyn.F90

Timestamp:

2020-11-12T19:13:23+01:00 (4 years ago)

Author:

mathiot

Message:

ticket #1900: cosmetic change

File:

• NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbdyn.F90 (modified) (1 diff)

NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbdyn.F90

@@ -216 +216 @@
          !
          ! berg reach a new t-cell, but an ocean one
+         ! .AND. needed in case berg hit an isf (tmask(ii,ij,1) == 0 and tmask(ii,ij,ikb) /= 0)
          IF(  tmask(ii,ij,ikb) /= 0._wp .AND. tmask(ii,ij,1) /= 0._wp ) RETURN
          !