Changeset 2701 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

Timestamp:

2011-03-22T14:50:19+01:00 (13 years ago)

Author:

rblod

Message:

Correction for Agrif in mpi with dynamic memory

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (3 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -1988 +1988 @@
 
       ! Allocate the right size to nrank_north
-#if ! defined key_agrif
       IF( ALLOCATED ( nrank_ice ) )   DEALLOCATE( nrank_ice )
-#else
-      IF( ASSOCIATED( nrank_ice ) )   DEALLOCATE( nrank_ice )
-#endif
       ALLOCATE( nrank_ice(ndim_rank_ice) )
       !
@@ -2077 +2073 @@
          !-$$        CALL flush(numout)
          ! Allocate the right size to nrank_znl
-#if ! defined key_agrif
          IF (ALLOCATED (nrank_znl)) DEALLOCATE(nrank_znl)
-#else
-         IF (ASSOCIATED(nrank_znl)) DEALLOCATE(nrank_znl)
-#endif
          ALLOCATE(nrank_znl(ndim_rank_znl))
          ii = 0     
@@ -2162 +2154 @@
       !
       ! Allocate the right size to nrank_north
-#if ! defined key_agrif
       IF (ALLOCATED (nrank_north)) DEALLOCATE(nrank_north)
-#else
-      IF (ASSOCIATED(nrank_north)) DEALLOCATE(nrank_north)
-#endif
       ALLOCATE( nrank_north(ndim_rank_north) )