Changeset 768 for branches/dev_001_GM/NEMO/TOP_SRC/CFC/trclsm_cfc.F90

Timestamp:

2007-12-16T15:46:18+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - create 1 trclsm_ module by trc model (CFC, LOBSTER, PISCES..) + some bug corrections

File:

• branches/dev_001_GM/NEMO/TOP_SRC/CFC/trclsm_cfc.F90 (moved) (moved from branches/dev_001_GM/NEMO/TOP_SRC/CFC/trclsm.cfc.h90) (3 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/CFC/trclsm_cfc.F90

@@ +1 @@
+MODULE trclsm_cfc
+   !!======================================================================
+   !!                         ***  MODULE trclsm_cfc  ***
+   !! TOP :   initialisation of some run parameters for CFC chemical model
+   !!======================================================================
+   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trclsm.cfc.h90
    !!----------------------------------------------------------------------
-   !!                     ***  trclsm.cfc.h90  ***  
-   !! TOP :   Definition some run parameter for CFC chemical model
+#if defined key_cfc
    !!----------------------------------------------------------------------
-   !! History :   1.0  !  2003-08 (C. Ethe)  Original code
+   !!   'key_cfc'                                               CFC tracers
    !!----------------------------------------------------------------------
+   !! trc_lsm_cfc      : CFC model initialisation
+   !!----------------------------------------------------------------------
+   USE oce_trc         ! Ocean variables
+   USE par_trc         ! TOP parameters
+   USE trc             ! TOP variables
+   USE sms             ! sms trends
+   USE trccfc          ! CFC specific variable
+
+   IMPLICIT NONE
+   PRIVATE
+
+   PUBLIC   trc_lsm_cfc   ! called by trclsm.F90 module
 
    !!----------------------------------------------------------------------
-   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Id $ 
+   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 
+   !! $Id$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -14 +31 @@
 CONTAINS
 
-   SUBROUTINE trc_lsm
+   SUBROUTINE trc_lsm_cfc
       !!-------------------------------------------------------------------
-      !!                  ***  ROUTINE trc_lsm  ***
+      !!                  ***  ROUTINE trc_lsm_cfc  ***
       !!                 
       !! ** Purpose :   Definition some run parameter for CFC model
@@ -50 +67 @@
       IF(lwp) WRITE(numout,*) '    initial year (aa)                       nyear_beg = ', nyear_beg
       !
-   END SUBROUTINE trc_lsm
+   END SUBROUTINE trc_lsm_cfc
+   
+#else
+   !!----------------------------------------------------------------------
+   !!  Dummy module :                                                No CFC
+   !!----------------------------------------------------------------------
+CONTAINS
+   SUBROUTINE trc_lsm_cfc                      ! Empty routine
+   END  SUBROUTINE  trc_lsm_cfc
+#endif  
+
+   !!======================================================================
+END MODULE trclsm_cfc