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

Changeset 4576


Ignore:
Timestamp:
2014-03-26T09:40:54+01:00 (10 years ago)
Author:
pabouttier
Message:

Store and restore nldf flag at the end of adjoint test routine of dynldf_tam, see Ticket #1271

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3611 r4576  
    315315      CHARACTER(LEN=14) :: cl_name 
    316316 
     317      INTEGER :: ildf !: store the nldf flag 
     318 
    317319      ! Allocate memory 
    318320 
    … …  
    336338         & ) 
    337339 
     340      ildf = nldf 
     341 
    338342      DO jt = 1, 2 
    339343 
    … …  
    463467      END DO 
    464468 
     469      nldf = ildf ! restore nldf 
     470       
    465471      DEALLOCATE( & 
    466472         & zua_tlin,     & 
Note: See TracChangeset for help on using the changeset viewer.