Changeset 772 for branches/dev_001_GM/NEMO/TOP_SRC/trcsms.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/trcsms.F90 (modified) (4 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/trcsms.F90

@@ -7 +7 @@
    !!             2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
    !!----------------------------------------------------------------------
-#if defined key_passivetrc
+#if defined key_top
    !!----------------------------------------------------------------------
-   !!   'key_passivetrc'                                    Passive tracers
+   !!   'key_top'                                                TOP models
    !!----------------------------------------------------------------------
    !!   trc_sms        :  Time loop of passive tracers sms
@@ -46 +46 @@
       IF ( MOD(kt,ndttrc) /= 0) RETURN      ! this ROUTINE is called only every ndttrc time step
 
-#if defined key_trc_lobster1
+#if defined key_lobster
 
       ! LOBSTER biological model
@@ -83 +83 @@
       ENDIF
 
-#elif defined key_trc_pisces
+#elif defined key_pisces
 
       ! PISCES biological model
@@ -98 +98 @@
       ! ------------------
 
-      IF( lk_trc_cfc )   CALL trc_cfc( kt )      ! surface fluxes of CFC
+      IF( lk_cfc )   CALL trc_cfc( kt )      ! surface fluxes of CFC
 
 #endif