Changeset 766 for branches/dev_001_GM/NEMO/TOP_SRC/CFC/trcini_cfc.F90

Timestamp:

2007-12-14T09:59:00+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - create 1 trcini_ module by trc model (CFC, LOBSTER, PISCES..) - never compiled

File:

• branches/dev_001_GM/NEMO/TOP_SRC/CFC/trcini_cfc.F90 (moved) (moved from branches/dev_001_GM/NEMO/TOP_SRC/CFC/trcini.cfc.h90) (4 diffs)

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

@@ +1 @@
+MODULE trcini_cfc
    !!======================================================================
-   !!                         ***  trcini.cfc.h90  ***
-   !! TOP :   Initialisation of CFC chemical model
+   !!                         ***  MODULE trcini_cfc  ***
+   !! TOP :   initialisation of the CFC tracers
    !!======================================================================
-   !! History :    -   !  2004-06  (JC. Dutay) Original code
-   !!             1.0  !  2005-03  (O. Aumont, A. El Moussaoui) F90
-   !!              -   !  2005-10  (C. Ethe) Modularity
+   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trcini.cfc.h90
    !!----------------------------------------------------------------------
+#if defined key_cfc
+   !!----------------------------------------------------------------------
+   !!   'key_cfc'                                               CFC tracers
+   !!----------------------------------------------------------------------
+   !! trc_ini_cfc      : CFC model initialisation
+   !!----------------------------------------------------------------------
+   USE par_trc         ! TOP parameters
+   USE trccfc          ! CFC sms trends
 
-   CHARACTER (len=34) ::   clname = 'cfc1112.atm' ! ???
+   IMPLICIT NONE
+   PRIVATE
+
+   PUBLIC   trc_ini_cfc   ! called by trcini.F90 module
+
+   CHARACTER (len=34) ::   clname = 'cfc1112.atm'   ! ???
 
    INTEGER  ::   inum                   ! unit number
@@ -15 +27 @@
 
    !!----------------------------------------------------------------------
-   !! 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)
    !!----------------------------------------------------------------------
@@ -22 +34 @@
 CONTAINS
 
-   SUBROUTINE trc_ini
+   SUBROUTINE trc_ini_cfc
       !!----------------------------------------------------------------------
-      !!                     ***  trcini.cfc.h90  ***  
+      !!                     ***  trc_ini_cfc  ***  
       !!
-      !! ** Purpose : special initialization for cfc model
+      !! ** Purpose :   initialization for cfc model
+      !!
+      !! ** Method  : - Read the namcfc namelist and check the parameter values
       !!----------------------------------------------------------------------
       INTEGER  ::   ji, jj, jn, jl, jm
-      REAL(wp) ::   zyy,  zyd
+      REAL(wp) ::   zyy  ,  zyd
       !!----------------------------------------------------------------------
+
+      IF(lwp) WRITE(numout,*)
+      IF(lwp) WRITE(numout,*) ' trc_ini_cfc: initialisation of CFC chemical model'
+      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~'
 
       ! Initialization of boundaries conditions
@@ -122 +140 @@
       END DO
       !
-   END SUBROUTINE trc_ini
+   END SUBROUTINE trc_ini_cfc
+   
+#else
+   !!----------------------------------------------------------------------
+   !!   Dummy module                                         No CFC tracers
+   !!----------------------------------------------------------------------
+CONTAINS
+   SUBROUTINE trc_ini_cfc             ! Empty routine
+   END SUBROUTINE trc_ini_cfc
+#endif
+
+   !!======================================================================
+END MODULE trcini_cfc