Changeset 10115 for NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC

Timestamp:

2018-09-12T15:59:13+02:00 (6 years ago)

Author:

cbricaud

Message:

phase 3.6 coarsening branch with nemo_3.6_rev9192

Location:

NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC

Files:

• par_my_trc.F90 (modified) (1 diff)
• trcnam_my_trc.F90 (modified) (1 diff)

NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90

@@ -15 +15 @@
    USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES
 
-   USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC
-   USE par_cfc    , ONLY : jp_cfc_2d       !: number of tracers in CFC
-   USE par_cfc    , ONLY : jp_cfc_3d       !: number of tracers in CFC
-   USE par_cfc    , ONLY : jp_cfc_trd      !: number of tracers in CFC
-
-   USE par_c14b   , ONLY : jp_c14b         !: number of tracers in C14
-   USE par_c14b   , ONLY : jp_c14b_2d      !: number of tracers in C14
-   USE par_c14b   , ONLY : jp_c14b_3d      !: number of tracers in C14
-   USE par_c14b   , ONLY : jp_c14b_trd     !: number of tracers in C14
-
-   USE par_age   , ONLY : jp_age         !: number of tracers in AGE
-   USE par_age   , ONLY : jp_age_2d      !: number of tracers in AGE
-   USE par_age   , ONLY : jp_age_3d      !: number of tracers in AGE
-   USE par_age   , ONLY : jp_age_trd     !: number of tracers in AGE
-
    IMPLICIT NONE
 
-   INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     + jp_cfc     + jp_c14b     + jp_age      !: 
-   INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d  + jp_age_2d   !:
-   INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d  + jp_age_3d   !:
-   INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_age_trd  !:
+   INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     !: 
+   INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  !:
+   INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  !:
+   INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd !:
 
 #if defined key_my_trc

NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcnam_my_trc.F90

@@ -36 +36 @@
       !!
       !!----------------------------------------------------------------------
+      INTEGER :: jn
       !
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) ' trc_nam_my_trc : read MY_TRC namelists'
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~'
+      ! 
+      do jn = jp_myt0 , jp_myt1
+         ctrcnm    (jn) = 'NONAME'
+         ctrcln    (jn) = 'NO Long Name'
+         ctrcun    (jn) = 'NOUNIT'
+         ln_trc_ini(jn) = .false.
+         ln_trc_wri(jn) = .true.
+      enddo
       !
-   END SUBROUTINE trc_nam_my_trc
+      END SUBROUTINE trc_nam_my_trc
    
 #else