Changeset 2699

Timestamp:

2011-03-21T10:10:32+01:00 (13 years ago)

Author:

rblod

Message:

Suppress arrays allocated twice when using OBC

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90 (modified) (1 diff)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -119 +119 @@
 # endif
 
-      ALLOCATE( uedta(jpj,jpk,jptobc) , vedta(jpj,jpk,jptobc)       ,     &
-         &      tedta(jpj,jpk,jptobc) , sedta(jpj,jpk,jptobc)       ,     &
-         &      uwdta(jpj,jpk,jptobc) , vwdta(jpj,jpk,jptobc)       ,     &
-         &      twdta(jpj,jpk,jptobc) , swdta(jpj,jpk,jptobc)       ,     &
-         &      undta(jpj,jpk,jptobc) , vndta(jpj,jpk,jptobc)       ,     &
-         &      tndta(jpj,jpk,jptobc) , sndta(jpj,jpk,jptobc)       ,     &
-         &      usdta(jpj,jpk,jptobc) , vsdta(jpj,jpk,jptobc)       ,     &
-         &      tsdta(jpj,jpk,jptobc) , ssdta(jpj,jpk,jptobc)       ,     &
-         &      ltemsk(jpj,jpk) , luemsk(jpj,jpk) , lvemsk(jpj,jpk) ,     &
+      ALLOCATE( ltemsk(jpj,jpk) , luemsk(jpj,jpk) , lvemsk(jpj,jpk) ,     &
          &      ltwmsk(jpj,jpk) , luwmsk(jpj,jpk) , lvwmsk(jpj,jpk) ,     &
          &      ltnmsk(jpj,jpk) , lunmsk(jpj,jpk) , lvnmsk(jpj,jpk) ,     &