Changeset 8353 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/AGE

Timestamp:

2017-07-19T16:41:00+02:00 (7 years ago)

Author:

lovato

Message:

3.6 stable: update TOP modules and shared configuraton files for CMIP6 (#1925)

Location:

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/AGE

Files:

• par_age.F90 (modified) (1 diff)
• trcnam_age.F90 (modified) (2 diffs)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/AGE/par_age.F90

@@ -25 +25 @@
    USE par_c14b   , ONLY : jp_c14b_trd     !: number of tracers in C14
 
+   USE par_my_trc , ONLY : jp_my_trc       !: number of tracers in MY_TRC
+   USE par_my_trc , ONLY : jp_my_trc_2d    !: number of 2D diag in MY_TRC
+   USE par_my_trc , ONLY : jp_my_trc_3d    !: number of 3D diag in MY_TRC
+   USE par_my_trc , ONLY : jp_my_trc_trd   !: number of biological diag in MY_TRC
+
    IMPLICIT NONE
 
-   INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     + jp_cfc     + jp_c14b     !: 
-   INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d  !:
-   INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d  !:
-   INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd + jp_cfc_trd + jp_c14b_trd !:
+   INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     + jp_my_trc     + jp_cfc     + jp_c14b     !: 
+   INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  + jp_my_trc_2d  + jp_cfc_2d  + jp_c14b_2d  !:
+   INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  + jp_my_trc_3d  + jp_cfc_3d  + jp_c14b_3d  !:
+   INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd + jp_my_trc_trd + jp_cfc_trd + jp_c14b_trd !:
 
 #if defined key_age

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/AGE/trcnam_age.F90

@@ -14 +14 @@
    USE oce_trc         ! Ocean variables
    USE trcsms_age      ! AGE specific variable
+   USE trc
 
    IMPLICIT NONE
@@ -44 +45 @@
       NAMELIST/namage/ rn_age_depth, rn_age_kill_rate 
       !!----------------------------------------------------------------------
+      ! Variable setting
+      ctrcnm    (jp_age0) = 'Age'
+      ctrcln    (jp_age0) = 'Sea water age since surface contact'
+      ctrcun    (jp_age0) = 'year'
+      ln_trc_ini(jp_age0) = .false.
       !                             ! Open namelist files
       CALL ctl_opn( numnatg_ref, 'namelist_age_ref'   ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )