Changeset 2701
- Timestamp:
- 2011-03-22T14:50:19+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r2690 r2701 1988 1988 1989 1989 ! Allocate the right size to nrank_north 1990 #if ! defined key_agrif1991 1990 IF( ALLOCATED ( nrank_ice ) ) DEALLOCATE( nrank_ice ) 1992 #else1993 IF( ASSOCIATED( nrank_ice ) ) DEALLOCATE( nrank_ice )1994 #endif1995 1991 ALLOCATE( nrank_ice(ndim_rank_ice) ) 1996 1992 ! … … 2077 2073 !-$$ CALL flush(numout) 2078 2074 ! Allocate the right size to nrank_znl 2079 #if ! defined key_agrif2080 2075 IF (ALLOCATED (nrank_znl)) DEALLOCATE(nrank_znl) 2081 #else2082 IF (ASSOCIATED(nrank_znl)) DEALLOCATE(nrank_znl)2083 #endif2084 2076 ALLOCATE(nrank_znl(ndim_rank_znl)) 2085 2077 ii = 0 … … 2162 2154 ! 2163 2155 ! Allocate the right size to nrank_north 2164 #if ! defined key_agrif2165 2156 IF (ALLOCATED (nrank_north)) DEALLOCATE(nrank_north) 2166 #else2167 IF (ASSOCIATED(nrank_north)) DEALLOCATE(nrank_north)2168 #endif2169 2157 ALLOCATE( nrank_north(ndim_rank_north) ) 2170 2158
Note: See TracChangeset
for help on using the changeset viewer.