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 4580 – NEMO

Changeset 4580


Ignore:
Timestamp:
2014-03-26T10:19:47+01:00 (10 years ago)
Author:
pabouttier
Message:

Correct a wrong variable name in dynvor_tam (ze3f instead of ze3f_ad)

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4579 r4580  
    12851285 
    12861286#if defined key_vvl 
    1287       CALL wrk_dealloc( jpi, jpj, jpk, ze3f ) 
     1287      CALL wrk_dealloc( jpi, jpj, jpk, ze3f_ad ) 
    12881288#endif 
    1289       IF ( kt == nit000 .AND. .NOT. lk_vvl ) DEALLOCATE( ze3f )       
     1289      IF ( kt == nit000 .AND. .NOT. lk_vvl ) DEALLOCATE( ze3f_ad )       
    12901290       
    12911291      IF( nn_timing == 1 )  CALL timing_stop('vor_een_adj') 
Note: See TracChangeset for help on using the changeset viewer.