Changeset 1122


Ignore:
Timestamp:
2008-06-20T17:36:35+02:00 (12 years ago)
Author:
cetlod
Message:

update par_my_trc.F90 module, see ticket 144

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90

    r1006 r1122  
    1010   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    1111   !!---------------------------------------------------------------------- 
    12    USE par_lobster, ONLY : jp_lobster   !: number of tracers in LOBSTER 
    13    USE par_pisces , ONLY : jp_pisces    !: number of tracers in PISCES 
    14    USE par_cfc    , ONLY : jp_cfc       !: number of tracers in CFC 
     12   USE par_lobster, ONLY : jp_lobster      !: number of tracers in LOBSTER 
     13   USE par_lobster, ONLY : jp_lobster_2d   !: number of 2D diag in LOBSTER 
     14   USE par_lobster, ONLY : jp_lobster_3d   !: number of 3D diag in LOBSTER 
     15   USE par_lobster, ONLY : jp_lobster_trd  !: number of biological diag in LOBSTER 
     16 
     17   USE par_pisces , ONLY : jp_pisces       !: number of tracers in PISCES 
     18   USE par_pisces , ONLY : jp_pisces_2d    !: number of 2D diag in PISCES 
     19   USE par_pisces , ONLY : jp_pisces_3d    !: number of 3D diag in PISCES 
     20   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
     21 
     22   USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC 
     23   USE par_cfc    , ONLY : jp_cfc_2d       !: number of 2D diag in CFC 
     24   USE par_cfc    , ONLY : jp_cfc_3d       !: number of 3D diag in CFC 
     25   USE par_cfc    , ONLY : jp_cfc_trd      !: number of biological diag in CFC 
    1526 
    1627   IMPLICIT NONE 
    1728   PUBLIC 
    1829 
    19    INTEGER, PUBLIC, PARAMETER ::   jp_lpc  = jp_lobster + jp_pisces + jp_cfc   !: cumulative number of TRC 
     30   INTEGER, PUBLIC, PARAMETER ::   jp_lpc      = jp_lobster     + jp_pisces     + jp_cfc     !: cumulative number of TRC 
     31   INTEGER, PUBLIC, PARAMETER ::   jp_lpc_2d   = jp_lobster_2d  + jp_pisces_2d  + jp_cfc_2d  !: 
     32   INTEGER, PUBLIC, PARAMETER ::   jp_lpc_3d   = jp_lobster_3d  + jp_pisces_3d  + jp_cfc_3d  !: 
     33   INTEGER, PUBLIC, PARAMETER ::   jp_lpc_trd  = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd !: 
    2034 
    2135#if defined key_trc_my_trc 
     
    4660 
    4761   ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done) 
    48    INTEGER, PUBLIC, PARAMETER ::   jp_myt0 = jp_lpc + 1           !: First index of CFC passive tracers 
    49    INTEGER, PUBLIC, PARAMETER ::   jp_myt1 = jp_lpc + jp_my_trc   !: Last  index of CFC passive tracers 
     62   INTEGER, PUBLIC, PARAMETER ::   jp_myt0     = jp_lpc     + 1              !: First index of MY_TRC passive tracers 
     63   INTEGER, PUBLIC, PARAMETER ::   jp_myt1     = jp_lpc     + jp_my_trc      !: Last  index of MY_TRC passive tracers 
     64   INTEGER, PUBLIC, PARAMETER ::   jp_myt0_2d  = jp_lpc_2d  + 1              !: First index of MY_TRC 2D diag 
     65   INTEGER, PUBLIC, PARAMETER ::   jp_myt1_2d  = jp_lpc_2d  + jp_my_trc_2d   !: Last  index of MY_TRC 2D diag 
     66   INTEGER, PUBLIC, PARAMETER ::   jp_myt0_3d  = jp_lpc_3d  + 1              !: First index of MY_TRC 3D diag 
     67   INTEGER, PUBLIC, PARAMETER ::   jp_myt1_3d  = jp_lpc_3d  + jp_my_trc_3d   !: Last  index of MY_TRC 3D diag 
     68   INTEGER, PUBLIC, PARAMETER ::   jp_myt0_trd = jp_lpc_trd + 1              !: First index of MY_TRC bio diag 
     69   INTEGER, PUBLIC, PARAMETER ::   jp_myt1_trd = jp_lpc_trd + jp_my_trc_trd  !: Last  index of MY_TRC bio diag 
    5070 
    5171   !!====================================================================== 
Note: See TracChangeset for help on using the changeset viewer.