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 7068 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcwri_age.F90 – NEMO

Ignore:
Timestamp:
2016-10-21T17:38:13+02:00 (7 years ago)
Author:
cetlod
Message:

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcwri_age.F90

    r7041 r7068  
    3333      ! write the tracer concentrations in the file 
    3434 
    35       cltra = TRIM( ctrcnm(jp_age0) )                  ! short title for tracer 
    36       CALL iom_put( cltra, trn(:,:,:,jp_age0) ) 
     35      cltra = TRIM( ctrcnm(jp_age) )                  ! short title for tracer 
     36      CALL iom_put( cltra, trn(:,:,:,jp_age) ) 
    3737 
    3838      ! 
Note: See TracChangeset for help on using the changeset viewer.