Changeset 771 for branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/par_lobster.F90

Timestamp:

2007-12-17T11:51:41+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - small error corrections

File:

• branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/par_lobster.F90 (modified) (1 diff)

branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/par_lobster.F90

@@ -48 +48 @@
 
    ! Starting/ending LOBSTER do-loop indices (N.B. no LOBSTER : jpl_lob < jpf_lob the do-loop are never done)
-   INTEGER, PUBLIC, PARAMETER ::   jpf_lob =          1       !: First index of LOBSTER tracers
-   INTEGER, PUBLIC, PARAMETER ::   jpl_lob = jp_lobster       !: Last  index of LOBSTER tracers
+   INTEGER, PUBLIC, PARAMETER ::   jp_lob0 =          1       !: First index of LOBSTER tracers
+   INTEGER, PUBLIC, PARAMETER ::   jp_lob1 = jp_lobster       !: Last  index of LOBSTER tracers
 
    !!======================================================================