Changeset 772 for branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcrad.F90

Timestamp:

2007-12-17T12:59:33+01:00 (17 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/TRP/trcrad.F90 (modified) (4 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcrad.F90

@@ -7 +7 @@
    !!            1.0  !  04-03  (C. Ethe)  free form F90
    !!----------------------------------------------------------------------
-#if defined key_passivetrc
+#if defined key_top
    !!----------------------------------------------------------------------
-   !!   'key_passivetrc'                                    Passive tracers
+   !!   'key_top'                                                TOP models
    !!----------------------------------------------------------------------
    !!   trc_rad    : correction of negative concentrations
@@ -27 +27 @@
    !!----------------------------------------------------------------------
    !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Id:$ 
+   !! $Id$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -62 +62 @@
       ENDIF
 
-      IF( lk_trc_cfc ) THEN                             ! CFC model
+      IF( lk_cfc ) THEN                         ! CFC model
          DO jn = 1, jptra
             DO jk = 1, jpkm1
@@ -75 +75 @@
       ENDIF 
 
-      IF( lk_trc_pisces .OR. lk_trc_lobster ) THEN      ! PISCES or LOBSTER bio-model
+      IF( lk_pisces .OR. lk_lobster ) THEN      ! PISCES or LOBSTER bio-model
          DO jn = 1, jptra
             ztrcorb = 0.e0