Index: /trunk/NEMO/TOP_SRC/CFC/trcctl_cfc.F90
===================================================================
--- /trunk/NEMO/TOP_SRC/CFC/trcctl_cfc.F90	(revision 1070)
+++ /trunk/NEMO/TOP_SRC/CFC/trcctl_cfc.F90	(revision 1070)
@@ -0,0 +1,118 @@
+MODULE trcctl_cfc
+   !!======================================================================
+   !!                         ***  trcctl.cfc.F90  ***
+   !! TOP :                Control of CFC chemical model
+   !!======================================================================
+   !!----------------------------------------------------------------------
+   !! History :   1.0  !  2005-10 (C. Ethe) assign a parameter to name individual tracers
+   !!----------------------------------------------------------------------
+
+#if defined key_cfc
+
+   USE oce_trc
+   USE trc
+
+
+   IMPLICIT NONE
+   PRIVATE
+
+   PUBLIC trc_ctl_cfc      ! called by ???
+
+   !!----------------------------------------------------------------------
+   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
+   !! $Id: trcctl.cfc.h90 765 2007-12-14 07:29:53Z gm $ 
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !!----------------------------------------------------------------------
+
+CONTAINS
+
+   SUBROUTINE trc_ctl_cfc
+      !!----------------------------------------------------------------------
+      !!                     ***  ROUTINE trc_ctl_cfc  ***
+      !!
+      !! ** Purpose :   control the cpp options, namelist and files 
+      !!----------------------------------------------------------------------
+      INTEGER :: jn
+
+      IF(lwp) THEN
+          WRITE(numout,*) ' CFC Model '
+          WRITE(numout,*) ' '
+      ENDIF
+
+      ! Check number of tracers
+      ! -----------------------   
+      IF( jp_cfc > 2) THEN 
+          IF(lwp) THEN 
+              WRITE (numout,*) ' ===>>>> : w a r n i n g '
+              WRITE (numout,*) ' =======   ============= '
+              WRITE (numout,*)                             &
+              &   ' STOP, change jp_cfc to 1 or 2 in par_CFC module '  
+          END IF 
+          STOP 'TRC_CTL'
+      END IF 
+
+      ! Check tracer names
+      ! ------------------
+      IF( jp_cfc == 1 ) THEN
+         IF ( jp11 == 1 ) THEN
+            IF ( ctrcnm(jp11) /= 'CFC11') THEN
+               ctrcnm(jp11) = 'CFC11'
+               ctrcnl(jp11) = 'Chlorofuorocarbone 11 concentration'
+            ENDIF
+         ENDIF
+         IF( jp12 == 1 ) THEN
+            IF ( ctrcnm(jp12) /= 'CFC12') THEN
+               ctrcnm(jp12) = 'CFC12'
+               ctrcnl(jp12) = 'Chlorofuorocarbone 12 concentration'
+            ENDIF
+         ENDIF
+      ENDIF
+
+      IF( jp_cfc == 2 ) THEN
+         IF ( ctrcnm(jp11) /= 'CFC11' .OR. ctrcnm(jp12) /= 'CFC12' ) THEN 
+            ctrcnm(jp11) = 'CFC11'
+            ctrcnl(jp11) = 'Chlorofuorocarbone 11 concentration'
+            ctrcnm(jp12) = 'CFC12'
+            ctrcnl(jp12) = 'Chlorofuorocarbone 12 concentration' 
+         ENDIF
+      ENDIF
+
+      IF(lwp) THEN
+         WRITE (numout,*) ' ===>>>> : w a r n i n g '
+         WRITE (numout,*) ' =======   ============= '
+         WRITE (numout,*) ' we force tracer names'
+         DO jn = jp_cfc0, jp_cfc1
+            WRITE(numout,*) ' tracer nb: ',jn,' name = ',ctrcnm(jn), ctrcnl(jn)
+         END DO
+         WRITE(numout,*) ' '
+      ENDIF 
+
+
+      ! Check tracer units
+      ! ------------------
+      DO jn = jp_cfc0, jp_cfc1
+        IF( ctrcun(jn) /= 'mole/m3' ) THEN
+            ctrcun(jn) = 'mole/m3'
+            IF(lwp) THEN
+               WRITE (numout,*) ' ===>>>> : w a r n i n g '
+               WRITE (numout,*) ' =======   ============= '
+               WRITE (numout,*) ' we force tracer unit'
+               WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn)
+               WRITE(numout,*) ' '
+            ENDIF 
+         ENDIF 
+      END DO              
+      !
+   END SUBROUTINE trc_ctl_cfc
+
+#else
+   !!----------------------------------------------------------------------
+   !!  Empty module :                                                No CFC
+   !!----------------------------------------------------------------------
+CONTAINS
+   SUBROUTINE trc_ctl_cfc                      ! Dummy routine
+   END SUBROUTINE trc_ctl_cfc
+#endif
+
+   !!======================================================================
+END MODULE trcctl_cfc
Index: /trunk/NEMO/TOP_SRC/CFC/trclsm_cfc.F90
===================================================================
--- /trunk/NEMO/TOP_SRC/CFC/trclsm_cfc.F90	(revision 1069)
+++ /trunk/NEMO/TOP_SRC/CFC/trclsm_cfc.F90	(revision 1070)
@@ -15,5 +15,4 @@
    USE par_trc         ! TOP parameters
    USE trc             ! TOP variables
-   USE sms             ! sms trends
    USE trcsms_cfc      ! CFC specific variable
 
