Changeset 3640 for branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/trabbl_tam.F90

Timestamp:

2012-11-23T14:57:56+01:00 (11 years ago)

Author:

pabouttier

Message:

Missing allocation/deallocation in TAM routines - See ticket #1013

File:

• branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/trabbl_tam.F90 (modified) (4 diffs)

branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/trabbl_tam.F90

@@ -96 +96 @@
          ALLOCATE( utr_bbl_tl  (jpi,jpj), vtr_bbl_tl  (jpi,jpj), &
             &      ahu_bbl_tl  (jpi,jpj), ahv_bbl_tl  (jpi,jpj), &
+            &      ahu_bbl_0_tl  (jpi,jpj), ahv_bbl_0_tl  (jpi,jpj), &
             &      STAT= ierr(1) )
          ll_alloctl = .TRUE.
@@ -103 +104 @@
          ALLOCATE( utr_bbl_ad  (jpi,jpj), vtr_bbl_ad  (jpi,jpj), &
             &      ahu_bbl_ad  (jpi,jpj), ahv_bbl_ad  (jpi,jpj), &
+            &      ahu_bbl_0_ad  (jpi,jpj), ahv_bbl_0_ad  (jpi,jpj), &
             &      STAT= ierr(2) )
          ll_allocad = .TRUE.
@@ -125 +127 @@
       IF ( ( kmode == 0 ) .OR. ( kmode == 1 ) .AND. ( ll_alloctl ) ) THEN
          DEALLOCATE( utr_bbl_tl, vtr_bbl_tl, &
-            &      ahu_bbl_tl, ahv_bbl_tl, &
+            &      ahu_bbl_0_tl, ahv_bbl_0_tl, &
             &      STAT= ierr(1) )
          ll_alloctl = .FALSE.
@@ -133 +135 @@
          DEALLOCATE( utr_bbl_ad, vtr_bbl_ad, &
             &      ahu_bbl_ad, ahv_bbl_ad, &
+            &      ahu_bbl_0_ad, ahv_bbl_0_ad, &
             &      STAT= ierr(2) )
          ll_allocad = .FALSE.