Changeset 4530 for branches

Timestamp:

2014-03-17T11:00:08+01:00 (10 years ago)

Author:

pabouttier

Message:

Fix memory leak in traldf_iso_tam.F90, see Ticket #1245

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/traldf_iso_tam.F90 (modified) (2 diffs)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/traldf_iso_tam.F90

@@ -282 +282 @@
       IF( nn_timing == 1 )  CALL timing_stop('tra_ldf_iso_tan')
       !
-      CALL wrk_dealloc( jpi, jpj,      zdkttl, zdk1ttl )
+      CALL wrk_dealloc( jpi, jpj,      zdkttl, zdk1ttl, zftutl, zftvtl )
       CALL wrk_dealloc( jpi, jpj, jpk, zdittl, zdjttl, ztfwtl  )
       !
@@ -544 +544 @@
       !
       CALL wrk_dealloc( jpi, jpj,      zdktad, zdk1tad, zftuad, zftvad )
-      CALL wrk_dealloc( jpi, jpj, jpk, zditad, zdjtad, ztfwad  )
+      CALL wrk_dealloc( jpi, jpj, jpk, zditad, zdjtad, ztfwad, zdjsad, zdisad  )
       !
    END SUBROUTINE tra_ldf_iso_adj