Changeset 15267 for NEMO/trunk/src/OCE/DOM

Timestamp:

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

Author:

smasson

Message:

trunk: new nogather nolding, #2724

Location:

NEMO/trunk/src/OCE/DOM

Files:

• dom_oce.F90 (modified) (1 diff)
• domain.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) ,     &

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

@@ -124 +124 @@
       !           !==  Reference coordinate system  ==!
       !
-      CALL dom_glo                      ! global domain versus local domain
+!      CALL dom_glo                      ! global domain versus local domain
       CALL dom_nam                      ! read namelist ( namrun, namdom )
       CALL dom_tile_init                ! Tile domain