Ignore:
Timestamp:
2007-12-14T09:59:00+01:00 (13 years ago)
Author:
gm
Message:

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

File:
1 moved

Legend:

Unmodified
Added
Removed
  • branches/dev_001_GM/NEMO/TOP_SRC/CFC/trcini_cfc.F90

    r764 r766  
     1MODULE trcini_cfc 
    12   !!====================================================================== 
    2    !!                         ***  trcini.cfc.h90  *** 
    3    !! TOP :   Initialisation of CFC chemical model 
     3   !!                         ***  MODULE trcini_cfc  *** 
     4   !! TOP :   initialisation of the CFC tracers 
    45   !!====================================================================== 
    5    !! History :    -   !  2004-06  (JC. Dutay) Original code 
    6    !!             1.0  !  2005-03  (O. Aumont, A. El Moussaoui) F90 
    7    !!              -   !  2005-10  (C. Ethe) Modularity 
     6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trcini.cfc.h90 
    87   !!---------------------------------------------------------------------- 
     8#if defined key_cfc 
     9   !!---------------------------------------------------------------------- 
     10   !!   'key_cfc'                                               CFC tracers 
     11   !!---------------------------------------------------------------------- 
     12   !! trc_ini_cfc      : CFC model initialisation 
     13   !!---------------------------------------------------------------------- 
     14   USE par_trc         ! TOP parameters 
     15   USE trccfc          ! CFC sms trends 
    916 
    10    CHARACTER (len=34) ::   clname = 'cfc1112.atm' ! ??? 
     17   IMPLICIT NONE 
     18   PRIVATE 
     19 
     20   PUBLIC   trc_ini_cfc   ! called by trcini.F90 module 
     21 
     22   CHARACTER (len=34) ::   clname = 'cfc1112.atm'   ! ??? 
    1123 
    1224   INTEGER  ::   inum                   ! unit number 
     
    1527 
    1628   !!---------------------------------------------------------------------- 
    17    !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
    18    !! $Id$  
     29   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
     30   !! $Id:$  
    1931   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    2032   !!---------------------------------------------------------------------- 
     
    2234CONTAINS 
    2335 
    24    SUBROUTINE trc_ini 
     36   SUBROUTINE trc_ini_cfc 
    2537      !!---------------------------------------------------------------------- 
    26       !!                     ***  trcini.cfc.h90  ***   
     38      !!                     ***  trc_ini_cfc  ***   
    2739      !! 
    28       !! ** Purpose : special initialization for cfc model 
     40      !! ** Purpose :   initialization for cfc model 
     41      !! 
     42      !! ** Method  : - Read the namcfc namelist and check the parameter values 
    2943      !!---------------------------------------------------------------------- 
    3044      INTEGER  ::   ji, jj, jn, jl, jm 
    31       REAL(wp) ::   zyy,  zyd 
     45      REAL(wp) ::   zyy  ,  zyd 
    3246      !!---------------------------------------------------------------------- 
     47 
     48      IF(lwp) WRITE(numout,*) 
     49      IF(lwp) WRITE(numout,*) ' trc_ini_cfc: initialisation of CFC chemical model' 
     50      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 
    3351 
    3452      ! Initialization of boundaries conditions 
     
    122140      END DO 
    123141      ! 
    124    END SUBROUTINE trc_ini 
     142   END SUBROUTINE trc_ini_cfc 
     143    
     144#else 
     145   !!---------------------------------------------------------------------- 
     146   !!   Dummy module                                         No CFC tracers 
     147   !!---------------------------------------------------------------------- 
     148CONTAINS 
     149   SUBROUTINE trc_ini_cfc             ! Empty routine 
     150   END SUBROUTINE trc_ini_cfc 
     151#endif 
     152 
     153   !!====================================================================== 
     154END MODULE trcini_cfc 
Note: See TracChangeset for help on using the changeset viewer.