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

branches/dev_001_GM/NEMO/TOP_SRC/trclsm.F90

@@ -7 +7 @@
    !!             2.0  !  2007-12  (C. Ethe, G. Madec) re-writing
    !!----------------------------------------------------------------------
-#if defined key_passivetrc
+#if defined key_top
    !!----------------------------------------------------------------------
-   !!   'key_passivetrc'                                    Passive tracers
+   !!   'key_top'                                                TOP models
    !!----------------------------------------------------------------------
    !!   trc_lsm   : reads specific namelist for sms terms
@@ -47 +47 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~'
       !
-      IF( lk_trc_lobster ) THEN   ;   CALL trc_lsm_lobster      ! LOBSTER bio-model
-      ELSE                        ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used'
+      IF( lk_lobster ) THEN   ;   CALL trc_lsm_lobster      ! LOBSTER bio-model
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used'
       ENDIF
 
-      IF( lk_trc_pisces  ) THEN   ;   CALL trc_lsm_pisces      ! PISCES  bio-model
-      ELSE                        ;   IF(lwp) WRITE(numout,*) '          PISCES not used'
+      IF( lk_pisces  ) THEN   ;   CALL trc_lsm_pisces      ! PISCES  bio-model
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          PISCES not used'
       ENDIF
 
-      IF( lk_trc_cfc     ) THEN   ;   CALL trc_lsm_cfc         ! CFC     tracers
-      ELSE                        ;   IF(lwp) WRITE(numout,*) '          CFC not used'
+      IF( lk_cfc     ) THEN   ;   CALL trc_lsm_cfc         ! CFC     tracers
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          CFC not used'
       ENDIF
 
-      IF( lk_my_trc      ) THEN   ;   CALL trc_lsm_my_trc      ! MY_TRC  tracers
-      ELSE                        ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'
+      IF( lk_my_trc  ) THEN   ;   CALL trc_lsm_my_trc      ! MY_TRC  tracers
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'
       ENDIF
       !