Changeset 2701


Ignore:
Timestamp:
2011-03-22T14:50:19+01:00 (10 years ago)
Author:
rblod
Message:

Correction for Agrif in mpi with dynamic memory

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r2690 r2701  
    19881988 
    19891989      ! Allocate the right size to nrank_north 
    1990 #if ! defined key_agrif 
    19911990      IF( ALLOCATED ( nrank_ice ) )   DEALLOCATE( nrank_ice ) 
    1992 #else 
    1993       IF( ASSOCIATED( nrank_ice ) )   DEALLOCATE( nrank_ice ) 
    1994 #endif 
    19951991      ALLOCATE( nrank_ice(ndim_rank_ice) ) 
    19961992      ! 
     
    20772073         !-$$        CALL flush(numout) 
    20782074         ! Allocate the right size to nrank_znl 
    2079 #if ! defined key_agrif 
    20802075         IF (ALLOCATED (nrank_znl)) DEALLOCATE(nrank_znl) 
    2081 #else 
    2082          IF (ASSOCIATED(nrank_znl)) DEALLOCATE(nrank_znl) 
    2083 #endif 
    20842076         ALLOCATE(nrank_znl(ndim_rank_znl)) 
    20852077         ii = 0      
     
    21622154      ! 
    21632155      ! Allocate the right size to nrank_north 
    2164 #if ! defined key_agrif 
    21652156      IF (ALLOCATED (nrank_north)) DEALLOCATE(nrank_north) 
    2166 #else 
    2167       IF (ASSOCIATED(nrank_north)) DEALLOCATE(nrank_north) 
    2168 #endif 
    21692157      ALLOCATE( nrank_north(ndim_rank_north) ) 
    21702158 
Note: See TracChangeset for help on using the changeset viewer.