Changeset 8345 for branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/CFC/par_cfc.F90

Timestamp:

2017-07-17T19:43:02+02:00 (7 years ago)

Author:

jpalmier

Message:

jpalm -- swich back passive tracer module calling order

File:

• branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/CFC/par_cfc.F90 (modified) (1 diff)

branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/CFC/par_cfc.F90

@@ -16 +16 @@
    USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES
 
-   USE par_medusa , ONLY : jp_medusa       !: number of tracers in MEDUSA
-   USE par_medusa , ONLY : jp_medusa_2d    !: number of 2D diag in MEDUSA
-   USE par_medusa , ONLY : jp_medusa_3d    !: number of 3D diag in MEDUSA
-   USE par_medusa , ONLY : jp_medusa_trd   !: number of biological diag in MEDUSA
-
-   USE par_idtra  , ONLY : jp_idtra        !: number of tracers in ideal tracer
-   USE par_idtra  , ONLY : jp_idtra_2d     !: number of tracers in ideal tracer
-   USE par_idtra  , ONLY : jp_idtra_3d     !: number of tracers in ideal tracer
-   USE par_idtra  , ONLY : jp_idtra_trd    !: number of tracers in ideal tracer
-
    IMPLICIT NONE
 
-   INTEGER, PARAMETER ::   jp_lc      =  jp_pisces     + jp_medusa     + &
-                      jp_idtra     !: cumulative number of passive tracers
-   INTEGER, PARAMETER ::   jp_lc_2d   =  jp_pisces_2d  + jp_medusa_2d  + &
-                      jp_idtra_2d !:
-   INTEGER, PARAMETER ::   jp_lc_3d   =  jp_pisces_3d  + jp_medusa_3d  + &
-                      jp_idtra_3d !:
-   INTEGER, PARAMETER ::   jp_lc_trd  =  jp_pisces_trd + jp_medusa_trd + &
-                      jp_idtra_trd !:
+   INTEGER, PARAMETER ::   jp_lc      =  jp_pisces            !: cumulative number of passive tracers
+   INTEGER, PARAMETER ::   jp_lc_2d   =  jp_pisces_2d         !:
+   INTEGER, PARAMETER ::   jp_lc_3d   =  jp_pisces_3d         !:
+   INTEGER, PARAMETER ::   jp_lc_trd  =  jp_pisces_trd        !:
    
 #if defined key_cfc