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 1254 for trunk/NEMO/TOP_SRC/par_trc.F90 – NEMO

Ignore:
Timestamp:
2009-01-13T10:58:39+01:00 (15 years ago)
Author:
cetlod
Message:

update parameter files to take into account the new C14 bomb tracer model, see ticket:298

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/par_trc.F90

    r1146 r1254  
    1919   USE par_pisces    ! PISCES  model 
    2020   USE par_cfc       ! CFC 11 and 12 tracers 
     21   USE par_c14b      ! C14 bomb tracer  
    2122   USE par_my_trc    ! user defined passive tracers 
    2223 
     
    2627   ! Passive tracers : Total size 
    2728   ! ---------------               ! total number of passive tracers, of 2d and 3d output and trend arrays 
    28    INTEGER, PUBLIC, PARAMETER ::   jptra    =  jp_lobster    + jp_pisces     + jp_cfc     + jp_my_trc 
    29    INTEGER, PUBLIC, PARAMETER ::   jpdia2d  =  jp_lobster_2d + jp_pisces_2d  + jp_cfc_2d  + jp_my_trc_2d 
    30    INTEGER, PUBLIC, PARAMETER ::   jpdia3d  =  jp_lobster_3d + jp_pisces_3d  + jp_cfc_3d  + jp_my_trc_3d 
     29   INTEGER, PUBLIC, PARAMETER ::   jptra    =  jp_lobster    + jp_pisces     + jp_cfc     + jp_c14b     + jp_my_trc 
     30   INTEGER, PUBLIC, PARAMETER ::   jpdia2d  =  jp_lobster_2d + jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d  + jp_my_trc_2d 
     31   INTEGER, PUBLIC, PARAMETER ::   jpdia3d  =  jp_lobster_3d + jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d  + jp_my_trc_3d 
    3132   !                     ! total number of sms diagnostic arrays 
    32    INTEGER, PUBLIC, PARAMETER ::   jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_my_trc_trd 
     33   INTEGER, PUBLIC, PARAMETER ::   jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd 
    3334    
    3435   !  1D configuration ("key_c1d") 
Note: See TracChangeset for help on using the changeset viewer.