Changeset 772 for branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

Timestamp:

2007-12-17T12:59:33+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - change the name of cpp key to key_top, key_lobster, key_pisces, key_kriest and the corresponding lk_

File:

• branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90 (modified) (4 diffs)

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

@@ -8 +8 @@
    !!             2.0  !  2007-12  (C. Ethe, G. Madec) from trclsm.pisces.h90
    !!----------------------------------------------------------------------
-#if defined key_trc_pisces
-   !!----------------------------------------------------------------------
-   !!   'key_trc_pisces'   :                               PISCES bio-model
+#if defined key_pisces
+   !!----------------------------------------------------------------------
+   !!   'key_pisces'   :                                   PISCES bio-model
    !!----------------------------------------------------------------------
    !! trc_lsm_pisces       : PISCES model namelist read
@@ -40 +40 @@
       !! ** input   :   file 'namelist.trc.sms' containing the following
       !!             namelist: natext, natbio, natsms
-      !!                       natkriest ("key_trc_kriest")
+      !!                       natkriest ("key_kriest")
       !!----------------------------------------------------------------------
       CHARACTER (len=32) ::   clname
@@ -57 +57 @@
          &             chlcnm,chlcdm, sedfeinput
       NAMELIST/natsms/bdustfer, briver, bndepo, bsedinput
-#if defined key_trc_kriest
+#if defined key_kriest
       NAMELIST/natkriest/ xkr_eta  , xkr_zeta , xkr_sfact, xkr_mass_min, xkr_mass_max,   &
          &                xkr_dnano, xkr_ddiat, xkr_dmeso, xkr_daggr   , xkr_stick
@@ -170 +170 @@
       ENDIF
 
-#if defined key_trc_kriest
+#if defined key_kriest
 
       !                               ! natkriest : kriest parameters