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 8345 for branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/C14b/par_c14b.F90 – NEMO

Ignore:
Timestamp:
2017-07-17T19:43:02+02:00 (7 years ago)
Author:
jpalmier
Message:

jpalm -- swich back passive tracer module calling order

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/C14b/par_c14b.F90

    r8280 r8345  
    1111   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
    1212 
    13    USE par_medusa , ONLY : jp_medusa       !: number of tracers in MEDUSA 
    14    USE par_medusa , ONLY : jp_medusa_2d    !: number of 2D diag in MEDUSA 
    15    USE par_medusa , ONLY : jp_medusa_3d    !: number of 3D diag in MEDUSA 
    16    USE par_medusa , ONLY : jp_medusa_trd   !: number of biological diag in MEDUSA 
    17  
    18    USE par_idtra  , ONLY : jp_idtra        !: number of tracers in MEDUSA 
    19    USE par_idtra  , ONLY : jp_idtra_2d     !: number of tracers in MEDUSA 
    20    USE par_idtra  , ONLY : jp_idtra_3d     !: number of tracers in MEDUSA 
    21    USE par_idtra  , ONLY : jp_idtra_trd    !: number of tracers in MEDUSA 
    22  
    2313   USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC 
    2414   USE par_cfc    , ONLY : jp_cfc_2d       !: number of 2D diag in CFC 
    … …  
    2616   USE par_cfc    , ONLY : jp_cfc_trd      !: number of biological diag in CFC 
    2717 
    28  
    2918   IMPLICIT NONE 
    3019 
    31    INTEGER, PARAMETER ::   jp_lb      =  jp_pisces     + jp_medusa     +   & 
    32                       jp_idtra      + jp_cfc                               !: cum. number of pass. tracers 
    33    INTEGER, PARAMETER ::   jp_lb_2d   =  jp_pisces_2d  + jp_medusa_2d  +   & 
    34                       jp_idtra_2d   + jp_cfc_2d  !: 
    35    INTEGER, PARAMETER ::   jp_lb_3d   =  jp_pisces_3d  + jp_medusa_3d  +   & 
    36                       jp_idtra_3d   + jp_cfc_3d  !: 
    37    INTEGER, PARAMETER ::   jp_lb_trd  =  jp_pisces_trd + jp_medusa_trd +   & 
    38                       jp_idtra_trd  + jp_cfc_trd !: 
     20   INTEGER, PARAMETER ::   jp_lb      =  jp_pisces     + jp_cfc            !: cum. number of pass. tracers 
     21   INTEGER, PARAMETER ::   jp_lb_2d   =  jp_pisces_2d  + jp_cfc_2d         !: 
     22   INTEGER, PARAMETER ::   jp_lb_3d   =  jp_pisces_3d  + jp_cfc_3d         !: 
     23   INTEGER, PARAMETER ::   jp_lb_trd  =  jp_pisces_trd + jp_cfc_trd        !: 
    3924    
    4025#if defined key_c14b 
Note: See TracChangeset for help on using the changeset viewer.