Changeset 768 for branches/dev_001_GM/NEMO/TOP_SRC/CFC/par_CFC.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/CFC/par_CFC.F90 (modified) (3 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/CFC/par_CFC.F90

@@ -16 +16 @@
    PUBLIC
 
+   INTEGER, PUBLIC, PARAMETER ::   jp_lp      = jp_lobster + jp_pisces   !: cumulative number of passive tracers
+   
 #if defined key_cfc
    !!---------------------------------------------------------------------
@@ -27 +29 @@
    
    ! assign an index in trc arrays for each CFC prognostic variables
-   INTEGER, PUBLIC, PARAMETER ::   jp_lp      = jp_lobster + jp_pisces   !: cumulative number of passive tracers
    INTEGER, PUBLIC, PARAMETER ::   jp11       = jp_lp + 1                !: CFC-11 
    INTEGER, PUBLIC, PARAMETER ::   jp12       = jp_lp + 2                !: CFC-12   
@@ -41 +42 @@
 #endif
 
-   ! Starting/ending CFC do-loop indices (N.B. no CFC : jpl_cfc < jpf_cfc the do-loop are never done)
-   INTEGER, PUBLIC, PARAMETER ::   jpf_cfc    = jp_lp + 1       !: First index of CFC tracers
-   INTEGER, PUBLIC, PARAMETER ::   jpl_cfc    = jp_lp + jp_cfc  !: Last  index of CFC tracers
+   ! Starting/ending CFC do-loop indices (N.B. no CFC : jp_cfc0 > jp_cfc1 the do-loop are never done)
+   INTEGER, PUBLIC, PARAMETER ::   jp_cfc0    = jp_lp + 1       !: First index of CFC tracers
+   INTEGER, PUBLIC, PARAMETER ::   jp_cfc1    = jp_lp + jp_cfc  !: Last  index of CFC tracers
 
    !!======================================================================