Changeset 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/trc_oce_tam.F90

Timestamp:

2011-02-15T12:58:59+01:00 (13 years ago)

Author:

vidard

Message:

refer to ticket #798

File:

• branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/trc_oce_tam.F90 (modified) (2 diffs)

branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/trc_oce_tam.F90

@@ -37 +37 @@
    PUBLIC &
       & trc_oce_tam_init, & !: Initialize the trend TAM fields
+      & trc_oce_tam_deallocate, & !: Deallocate the trend TAM fields
       & etot3_tl, &
       & etot3_ad
@@ -103 +104 @@
 
    END SUBROUTINE trc_oce_tam_init
+   SUBROUTINE trc_oce_tam_deallocate( kindic )
+      !!-----------------------------------------------------------------------
+      !!
+      !!                  ***  ROUTINE trc_oce_tam_deallocate  ***
+      !!
+      !! ** Purpose : Deallocate the tangent linear and
+      !!              adjoint arrays
+      !!
+      !! ** Method  : kindic = 0  deallocate both tl and ad variables
+      !!              kindic = 1  deallocate only tl variables
+      !!              kindic = 2  deallocate only ad variables
+      !!
+      !! ** Action  :
+      !!
+      !! References :
+      !!
+      !! History :
+      !!        ! 2010-06 (A. Vidard) Initial version
+      !!-----------------------------------------------------------------------
+      !! * Arguments
+      INTEGER, INTENT(IN) :: &
+         & kindic        ! indicate which variables to deallocate
 
+      !! * Local declarations
+      ! Deallocate tangent linear variable arrays
+      ! ---------------------------------------
+
+      IF ( kindic == 0 .OR. kindic == 1 ) THEN
+
+         IF ( ALLOCATED(etot3_tl) ) DEALLOCATE( etot3_tl )
+
+      END IF
+
+      IF ( kindic == 0 .OR. kindic == 2 ) THEN
+            
+         ! Deallocate adjoint variable arrays
+         ! --------------------------------
+
+         IF ( ALLOCATED(etot3_ad) ) DEALLOCATE( etot3_ad )
+
+      END IF
+
+   END SUBROUTINE trc_oce_tam_deallocate
 #endif
 END MODULE trc_oce_tam