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 7494 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/trcini.F90 – NEMO

Ignore:
Timestamp:
2016-12-14T10:02:43+01:00 (7 years ago)
Author:
timgraham
Message:

Addition of extra diagnostic outputs in CMIP6 data request. NB. Will require update to field_def file from shaconemo

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r6941 r7494  
    2323   USE trcini_pisces   ! PISCES   initialisation 
    2424   USE trcini_c14b     ! C14 bomb initialisation 
     25   USE trcini_age      ! AGE      initialisation 
    2526   USE trcini_my_trc   ! MY_TRC   initialisation 
    2627   USE trcdta          ! initialisation from files 
     
    4142   !!---------------------------------------------------------------------- 
    4243   !! NEMO/TOP 4.0 , NEMO Consortium (2011) 
    43    !! $Id$  
     44   !! $Id$ 
    4445   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4546   !!---------------------------------------------------------------------- 
     
    9697 
    9798      IF( lk_pisces  )       CALL trc_ini_pisces       ! PISCES  bio-model 
    98       IF( lk_cfc     )       CALL trc_ini_cfc          ! CFC     tracers 
     99      IF( lk_cfc     )       CALL trc_ini_cfc          ! CFC       tracers 
    99100      IF( lk_c14b    )       CALL trc_ini_c14b         ! C14 bomb  tracer 
    100       IF( lk_my_trc  )       CALL trc_ini_my_trc       ! MY_TRC  tracers 
     101      IF( lk_age     )       CALL trc_ini_age          ! AGE       tracer 
     102      IF( lk_my_trc  )       CALL trc_ini_my_trc       ! MY_TRC    tracers 
    101103 
    102104      CALL trc_ice_ini                                 ! Tracers in sea ice 
Note: See TracChangeset for help on using the changeset viewer.