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 3641 for branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/step_tam.F90 – NEMO

Ignore:
Timestamp:
2012-11-23T15:25:50+01:00 (10 years ago)
Author:
pabouttier
Message:

Add possibility to run in stand-alone Tangent Linear Model - See ticket 1014

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/step_tam.F90

    r3611 r3641  
    7878 
    7979      indic = 0                    ! reset to no error condition 
    80       !IF (kstp == nit000)     CALL tl_trj_wri(nit000-1) 
     80      IF ( kstp == nit000 )    CALL tl_trj_wri(nit000-1) 
    8181      IF ( kstp /= nit000 )    CALL day_tam( kstp, 0 )             ! Calendar (day was already called at nit000 in day_init) 
    8282 
     
    203203      ! N.B. ua, va, ta, sa arrays are used as workspace in this section 
    204204      !----------------------------------------------------------------------- 
    205       !CALL tl_trj_wri(kstp) 
     205      CALL tl_trj_wri( kstp ) 
    206206      CALL trj_rea( kstp, 1) ! ... Read basic state trajectory at end of current step 
    207207 
Note: See TracChangeset for help on using the changeset viewer.