Changeset 14433 for NEMO/trunk/src/OCE/ICB/icbini.F90

Timestamp:

2021-02-11T09:06:49+01:00 (3 years ago)

Author:

smasson

Message:

trunk: merge dev_r14312_MPI_Interface into the trunk, #2598

File:

• NEMO/trunk/src/OCE/ICB/icbini.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/ICB/icbini.F90

@@ -189 +189 @@
       
       ! north fold
-      IF( npolj > 0 ) THEN
+      IF( l_IdoNFold ) THEN
          !
          ! icebergs in row nicbej+1 get passed across fold
@@ -235 +235 @@
          WRITE(numicb,*) "j point"
          WRITE(numicb,*) (INT(src_calving(ji,jj)), jj=1,jpj)
-         IF( npolj > 0 ) THEN
+         IF( l_IdoNFold ) THEN
             WRITE(numicb,*) 'north fold destination points '
             WRITE(numicb,*) nicbfldpts