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

branches/dev_001_GM/NEMO/TOP_SRC/PISCES/par_PISCES.F90

@@ -15 +15 @@
    PUBLIC
 
+   INTEGER, PUBLIC, PARAMETER ::   jp_l  = jp_lobster      !: cumulative number of already defined TRC
+
 #if defined key_trc_pisces  &&  defined key_trc_kriest
    !!---------------------------------------------------------------------
@@ -29 +31 @@
    !    WARNING: be carefull about the order when reading the restart
         !   !!gm  this warning should be obsolet with IOM
-   INTEGER, PUBLIC, PARAMETER ::   jp_l  = jp_lobster   !: cumulative number of already defined TRC
    INTEGER, PUBLIC, PARAMETER ::   jpdic = jp_l +  1    !: dissolved inoganic carbon concentration 
    INTEGER, PUBLIC, PARAMETER ::   jptal = jp_l +  2    !: total alkalinity 
@@ -68 +69 @@
    !    WARNING: be carefull about the order when reading the restart
         !   !!gm  this warning should be obsolet with IOM
-   INTEGER, PUBLIC, PARAMETER ::   jp_l  = jp_lobster   !: cumulative number of TRC
    INTEGER, PUBLIC, PARAMETER ::   jpdic = jp_l +  1    !: dissolved inoganic carbon concentration 
    INTEGER, PUBLIC, PARAMETER ::   jptal = jp_l +  2    !: total alkalinity