Changeset 768 for branches/dev_001_GM/NEMO/TOP_SRC/MY_TRC/par_MY_TRC.F90

Timestamp:

2007-12-16T15:46:18+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - create 1 trclsm_ module by trc model (CFC, LOBSTER, PISCES..) + some bug corrections

File:

• branches/dev_001_GM/NEMO/TOP_SRC/MY_TRC/par_MY_TRC.F90 (modified) (3 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/MY_TRC/par_MY_TRC.F90

@@ -17 +17 @@
    PUBLIC
 
+   INTEGER, PUBLIC, PARAMETER ::   jp_lpc  = jp_lobster + jp_pisces + jp_cfc   !: cumulative number of TRC
+
 #if defined key_trc_my_trc
    !!---------------------------------------------------------------------
@@ -28 +30 @@
 
    ! assign an index in trc arrays for each PTS prognostic variables
-   INTEGER, PUBLIC, PARAMETER ::   jp_lpc  = jp_lobster + jp_pisces + jp_cfc   !: cumulative number of TRC
-   INTEGER, PUBLIC, PARAMETER ::   jp_myt1 = jp_lpc + 1                        !: 1st MY_TRC tracer
-   INTEGER, PUBLIC, PARAMETER ::   jp_myt2 = jp_lpc + 1                        !: 2nd MY_TRC tracer
-   INTEGER, PUBLIC, PARAMETER ::   jp_myt3 = jp_lpc + 1                        !: 3rd MY_TRC tracer
+   INTEGER, PUBLIC, PARAMETER ::   jp_myt1 = jp_lpc + 1     !: 1st MY_TRC tracer
+   INTEGER, PUBLIC, PARAMETER ::   jp_myt2 = jp_lpc + 1     !: 2nd MY_TRC tracer
+   INTEGER, PUBLIC, PARAMETER ::   jp_myt3 = jp_lpc + 1     !: 3rd MY_TRC tracer
 
 #else
@@ -45 +46 @@
 
    ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done)
-   INTEGER, PUBLIC, PARAMETER ::   jpf_myt = jp_l + 1           !: First index of CFC passive tracers
-   INTEGER, PUBLIC, PARAMETER ::   jpl_myt = jp_l + jp_my_trc   !: Last  index of CFC passive tracers
+   INTEGER, PUBLIC, PARAMETER ::   jpf_myt = jp_lpc + 1           !: First index of CFC passive tracers
+   INTEGER, PUBLIC, PARAMETER ::   jpl_myt = jp_lpc + jp_my_trc   !: Last  index of CFC passive tracers
 
    !!======================================================================