Changeset 2031 for trunk/NEMO/OPA_SRC/OBC/obcdta.F90

Timestamp:

2010-07-29T14:31:53+02:00 (14 years ago)

Author:

rblod

Message:

Fix issues with OBC and AGRIF, see ticket #688 and #692

File:

• trunk/NEMO/OPA_SRC/OBC/obcdta.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -30 +30 @@
 
   !! * Shared module variables
+!$AGRIF_DO_NOT_TREAT
   REAL(wp),  DIMENSION(2)              ::  zjcnes_obc   ! 
   REAL(wp),  DIMENSION(:), ALLOCATABLE :: ztcobc
+!$AGRIF_END_DO_NOT_TREAT
   REAL(wp) :: rdt_obc
   REAL(wp) :: zjcnes
@@ -469 +471 @@
        ENDIF
     ELSE
-#if defined key_agrif
-       IF ( ASSOCIATED(ztcobc) ) DEALLOCATE ( ztcobc )
-#else
        IF ( ALLOCATED(ztcobc) ) DEALLOCATE ( ztcobc )
-#endif
        ALLOCATE (ztcobc(itobc))
        DO ji=1,1   ! use a dummy loop to read ztcobc only once