New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4530 for branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/traldf_iso_tam.F90 – NEMO

Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/traldf_iso_tam.F90

    r3611 r4530  
    282282      IF( nn_timing == 1 )  CALL timing_stop('tra_ldf_iso_tan') 
    283283      ! 
    284       CALL wrk_dealloc( jpi, jpj,      zdkttl, zdk1ttl ) 
     284      CALL wrk_dealloc( jpi, jpj,      zdkttl, zdk1ttl, zftutl, zftvtl ) 
    285285      CALL wrk_dealloc( jpi, jpj, jpk, zdittl, zdjttl, ztfwtl  ) 
    286286      ! 
     
    544544      ! 
    545545      CALL wrk_dealloc( jpi, jpj,      zdktad, zdk1tad, zftuad, zftvad ) 
    546       CALL wrk_dealloc( jpi, jpj, jpk, zditad, zdjtad, ztfwad  ) 
     546      CALL wrk_dealloc( jpi, jpj, jpk, zditad, zdjtad, ztfwad, zdjsad, zdisad  ) 
    547547      ! 
    548548   END SUBROUTINE tra_ldf_iso_adj 
Note: See TracChangeset for help on using the changeset viewer.