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 5153 for branches – NEMO

Changeset 5153 for branches


Ignore:
Timestamp:
2015-03-18T12:05:39+01:00 (9 years ago)
Author:
pabouttier
Message:

Fix erroneous allocation in vor_een_adj routine; See Ticket 1481

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/DYN/dynvor_tam.F90

    r4580 r5153  
    10751075#if defined key_vvl 
    10761076      CALL wrk_alloc( jpi, jpj, jpk, ze3f_ad ) 
     1077      ze3f_ad = 0._wp 
    10771078#endif 
    10781079 
     
    12871288      CALL wrk_dealloc( jpi, jpj, jpk, ze3f_ad ) 
    12881289#endif 
    1289       IF ( kt == nit000 .AND. .NOT. lk_vvl ) DEALLOCATE( ze3f_ad )       
    1290        
     1290      IF ( kt == nit000 .AND. .NOT. lk_vvl ) DEALLOCATE( ze3f_ad ) 
     1291 
    12911292      IF( nn_timing == 1 )  CALL timing_stop('vor_een_adj') 
    12921293      ! 
Note: See TracChangeset for help on using the changeset viewer.