Changeset 15267 for NEMO/trunk/src/OCE/DOM/dom_oce.F90

Timestamp:

2021-09-17T11:04:34+02:00 (3 years ago)

Author:

smasson

Message:

trunk: new nogather nolding, #2724

File:

• NEMO/trunk/src/OCE/DOM/dom_oce.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/DOM/dom_oce.F90

@@ -274 +274 @@
       !
       ii = ii+1
-      ALLOCATE( mig(jpi), mjg(jpj), mig0(jpi), mjg0(jpj), STAT=ierr(ii) )
-         !
-      ii = ii+1
-      ALLOCATE( mi0(jpiglo), mi1(jpiglo), mj0(jpjglo), mj1(jpjglo), STAT=ierr(ii) )
-         !
-      ii = ii+1
       ALLOCATE( glamt(jpi,jpj) ,    glamu(jpi,jpj) ,  glamv(jpi,jpj) ,  glamf(jpi,jpj) ,     &
          &      gphit(jpi,jpj) ,    gphiu(jpi,jpj) ,  gphiv(jpi,jpj) ,  gphif(jpi,jpj) ,     &