Changeset 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/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/oce_tam.F90 (modified) (2 diffs)

branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/oce_tam.F90

@@ -34 +34 @@
    PUBLIC &
       & oce_tam_init, & !: Initialize the TAM fields
+      & oce_tam_deallocate, &
                     !:
       & ub_tl,    & !: Tangent linear of before u-component velocity
@@ -788 +789 @@
 
    END SUBROUTINE oce_tam_init
+   SUBROUTINE oce_tam_deallocate ( kindic )
+      !!-----------------------------------------------------------------------
+      !!
+      !!                  ***  ROUTINE 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 allocate/initialize
+      
+      !! * Local declarations
+      ! Dellocate tangent linear variable arrays
+      ! ---------------------------------------
+      
+      IF ( kindic == 0 .OR. kindic == 1 ) THEN
+
+         IF ( ALLOCATED(ub_tl) ) DEALLOCATE( ub_tl )
+
+         IF ( ALLOCATED(un_tl) ) DEALLOCATE( un_tl )
+
+         IF ( ALLOCATED(ua_tl) ) DEALLOCATE( ua_tl )
+
+         IF ( ALLOCATED(vb_tl) ) DEALLOCATE( vb_tl )
+
+         IF ( ALLOCATED(vn_tl) ) DEALLOCATE( vn_tl )
+
+         IF ( ALLOCATED(va_tl) ) DEALLOCATE( va_tl )
+
+         IF ( ALLOCATED(wn_tl) ) DEALLOCATE( wn_tl )
+
+         IF ( ALLOCATED(rotb_tl) ) DEALLOCATE( rotb_tl )
+            
+         IF ( ALLOCATED(rotn_tl) ) DEALLOCATE( rotn_tl )
+            
+         IF ( ALLOCATED(hdivb_tl) ) DEALLOCATE( hdivb_tl )
+
+         IF ( ALLOCATED(hdivn_tl) ) DEALLOCATE( hdivn_tl )
+            
+         IF ( ALLOCATED(tb_tl) ) DEALLOCATE( tb_tl )
+            
+         IF ( ALLOCATED(tn_tl) ) DEALLOCATE( tn_tl )
+
+         IF ( ALLOCATED(ta_tl) ) DEALLOCATE( ta_tl )
+            
+         IF ( ALLOCATED(sb_tl) ) DEALLOCATE( sb_tl )
+
+         IF ( ALLOCATED(sn_tl) ) DEALLOCATE( sn_tl )
+
+         IF ( ALLOCATED(sa_tl) ) DEALLOCATE( sa_tl )
+            
+         IF ( ALLOCATED(rhd_tl) ) DEALLOCATE( rhd_tl )
+            
+         IF ( ALLOCATED(rhop_tl) ) DEALLOCATE( rhop_tl )
+
+         IF ( ALLOCATED(rn2_tl) ) DEALLOCATE( rn2_tl )
+
+         IF ( ALLOCATED(spgu_tl) ) DEALLOCATE( spgu_tl )
+            
+         IF ( ALLOCATED(spgv_tl) ) DEALLOCATE( spgv_tl )
+            
+#if defined key_dynspg_rl
+         IF ( ALLOCATED(bsfb_tl) ) DEALLOCATE( bsfb_tl )
+         
+         IF ( ALLOCATED(bsfn_tl) ) DEALLOCATE( bsfn_tl )
+         
+         IF ( ALLOCATED(bsfd_tl) ) DEALLOCATE( bsfd_tl )
+         
+#else
+         IF (ALLOCATED(sshb_tl) ) DEALLOCATE( sshb_tl )
+
+         IF (ALLOCATED(sshn_tl) ) DEALLOCATE( sshn_tl )
+
+         IF (ALLOCATED(ssha_tl) ) DEALLOCATE( ssha_tl )
+
+         IF (ALLOCATED(sshu_tl) ) DEALLOCATE( sshu_tl )
+
+         IF (ALLOCATED(sshv_tl) ) DEALLOCATE( sshv_tl )
+
+         IF (ALLOCATED(sshbb_tl) ) DEALLOCATE( sshbb_tl )
+
+#endif      
+         IF ( ALLOCATED(gtu_tl) ) DEALLOCATE( gtu_tl )
+
+         IF ( ALLOCATED(gtv_tl) ) DEALLOCATE( gtv_tl )
+
+         IF ( ALLOCATED(gsu_tl) ) DEALLOCATE( gsu_tl )
+
+         IF ( ALLOCATED(gsv_tl) ) DEALLOCATE( gsv_tl )
+
+         IF ( ALLOCATED(gru_tl) ) DEALLOCATE( gru_tl )
+
+         IF ( ALLOCATED(grv_tl) ) DEALLOCATE( grv_tl )
+
+
+
+#if defined key_zdfddm
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!  AW: The declaration/allocation/initialization of these variables
+!!!!      should be moved to a new module zdf_ddm_tam_init to be consistent
+!!!!      with NEMO.
+         IF ( ALLOCATED(rrau_tl) ) DEALLOCATE( rrau_tl )
+            
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+#endif
+
+
+      ENDIF
+
+      IF ( kindic == 0 .OR. kindic == 2 ) THEN
+
+         ! Allocate adjoint variable arrays
+         ! --------------------------------
+      
+         IF ( ALLOCATED(ub_ad) ) DEALLOCATE( ub_ad )
+
+         IF ( ALLOCATED(un_ad) ) DEALLOCATE( un_ad )
+
+         IF ( ALLOCATED(ua_ad) ) DEALLOCATE( ua_ad )
+
+         IF ( ALLOCATED(vb_ad) ) DEALLOCATE( vb_ad )
+
+         IF ( ALLOCATED(vn_ad) ) DEALLOCATE( vn_ad )
+
+         IF ( ALLOCATED(va_ad) ) DEALLOCATE( va_ad )
+
+         IF ( ALLOCATED(wn_ad) ) DEALLOCATE( wn_ad )
+            
+         IF ( ALLOCATED(rotb_ad) ) DEALLOCATE( rotb_ad )
+
+         IF ( ALLOCATED(rotn_ad) ) DEALLOCATE( rotn_ad )
+
+         IF ( ALLOCATED(hdivb_ad) ) DEALLOCATE( hdivb_ad )
+
+         IF ( ALLOCATED(hdivn_ad) ) DEALLOCATE( hdivn_ad )
+
+         IF ( ALLOCATED(tb_ad) ) DEALLOCATE( tb_ad )
+            
+         IF ( ALLOCATED(tn_ad) ) DEALLOCATE( tn_ad )
+
+         IF ( ALLOCATED(ta_ad) ) DEALLOCATE( ta_ad )
+
+         IF ( ALLOCATED(sb_ad) ) DEALLOCATE( sb_ad )
+            
+         IF ( ALLOCATED(sn_ad) ) DEALLOCATE( sn_ad )
+            
+         IF ( ALLOCATED(sa_ad) ) DEALLOCATE( sa_ad )
+            
+         IF ( ALLOCATED(rhd_ad) ) DEALLOCATE( rhd_ad )
+            
+         IF ( ALLOCATED(rhop_ad) ) DEALLOCATE( rhop_ad )
+            
+         IF ( ALLOCATED(rn2_ad) ) DEALLOCATE( rn2_ad )
+
+         IF ( ALLOCATED(spgu_ad) ) DEALLOCATE( spgu_ad )
+
+         IF ( ALLOCATED(spgv_ad) ) DEALLOCATE( spgv_ad )
+
+#if defined key_dynspg_rl
+         IF ( ALLOCATED(bsfb_ad) ) DEALLOCATE( bsfb_ad )
+         
+         IF ( ALLOCATED(bsfn_ad) ) DEALLOCATE( bsfn_ad )
+
+         IF ( ALLOCATED(bsfd_ad) ) DEALLOCATE( bsfd_ad )
+
+#else
+         IF ( ALLOCATED(sshb_ad) ) DEALLOCATE( sshb_ad )
+
+         IF ( ALLOCATED(sshn_ad) ) DEALLOCATE( sshn_ad )
+
+         IF ( ALLOCATED(ssha_ad) ) DEALLOCATE( ssha_ad )
+
+         IF ( ALLOCATED(sshu_ad) ) DEALLOCATE( sshu_ad )
+
+         IF ( ALLOCATED(sshv_ad) ) DEALLOCATE( sshv_ad )
+
+         IF ( ALLOCATED(sshbb_ad) ) DEALLOCATE( sshbb_ad )
+
+#endif      
+         IF ( ALLOCATED(gtu_ad) ) DEALLOCATE( gtu_ad )
+
+         IF ( ALLOCATED(gtv_ad) ) DEALLOCATE( gtv_ad )
+
+         IF ( ALLOCATED(gsu_ad) ) DEALLOCATE( gsu_ad )
+
+         IF ( ALLOCATED(gsv_ad) ) DEALLOCATE( gsv_ad )
+
+         IF ( ALLOCATED(gru_ad) ) DEALLOCATE( gru_ad )
+
+         IF ( ALLOCATED(grv_ad) ) DEALLOCATE( grv_ad )
+
+
+
+#if defined key_zdfddm
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!  AW: The declaration/allocation/initialization of these variables
+!!!!      should be moved to a new module zdf_ddm_tam_init to be consistent
+!!!!      with NEMO.
+         IF ( ALLOCATED(rrau_ad) ) DEALLOCATE( rrau_ad )
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+#endif
+
+      ENDIF
+
+   END SUBROUTINE oce_tam_deallocate
       
 END MODULE oce_tam