source: trunk/NEMO/TOP_SRC/CFC/trclsm_cfc.F90 @ 1004

Last change on this file since 1004 was 1004, checked in by cetlod, 13 years ago

Update CFC modules to take into account the re-organization of TOP initialization phase, see ticket 168

File size: 3.5 KB
Line 
1MODULE trclsm_cfc
2   !!======================================================================
3   !!                         ***  MODULE trclsm_cfc  ***
4   !! TOP :   initialisation of some run parameters for CFC chemical model
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trclsm.cfc.h90
7   !!----------------------------------------------------------------------
8#if defined key_cfc
9   !!----------------------------------------------------------------------
10   !!   'key_cfc'                                               CFC tracers
11   !!----------------------------------------------------------------------
12   !! trc_lsm_cfc      : CFC model initialisation
13   !!----------------------------------------------------------------------
14   USE oce_trc         ! Ocean variables
15   USE par_trc         ! TOP parameters
16   USE trc             ! TOP variables
17   USE sms             ! sms trends
18   USE trcsms_cfc      ! CFC specific variable
19
20   IMPLICIT NONE
21   PRIVATE
22
23   PUBLIC   trc_lsm_cfc   ! called by trclsm.F90 module
24
25   !!----------------------------------------------------------------------
26   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)
27   !! $Id: trclsm_cfc.F90 768 2007-12-16 14:46:18Z gm $
28   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
29   !!----------------------------------------------------------------------
30
31CONTAINS
32
33   SUBROUTINE trc_lsm_cfc
34      !!-------------------------------------------------------------------
35      !!                  ***  ROUTINE trc_lsm_cfc  ***
36      !!                 
37      !! ** Purpose :   Definition some run parameter for CFC model
38      !!
39      !! ** Method  :   Read the namcfc namelist and check the parameter
40      !!       values called at the first timestep (nit000)
41      !!
42      !! ** input   :   Namelist namcfc
43      !!----------------------------------------------------------------------
44      CHARACTER (len=32) ::   clname = 'namelist.sms.cfc'
45      INTEGER ::   numnat
46      !!
47      NAMELIST/namdates/ ndate_beg, nyear_res
48      !!-------------------------------------------------------------------
49
50      ndate_beg = 300101            ! default namelist value
51      nyear_res = 1950
52
53      !                             ! Open namelist file
54      CALL ctlopn( numnat, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
55         &           1, numout, .FALSE., 1 )
56         
57      READ( numnat , namdates )     ! read namelist
58
59      IF(lwp) THEN                  ! control print
60         WRITE(numout,*)
61         WRITE(numout,*) ' trc_lsm: Read namdates, namelist for CFC chemical model'
62         WRITE(numout,*) ' ~~~~~~~'
63         WRITE(numout,*) '    initial calendar date (aammjj) for CFC  ndate_beg = ', ndate_beg
64         WRITE(numout,*) '    restoring time constant (year)          nyear_res = ', nyear_res
65      ENDIF
66      nyear_beg = ndate_beg / 10000
67      IF(lwp) WRITE(numout,*) '    initial year (aa)                       nyear_beg = ', nyear_beg
68      !
69   END SUBROUTINE trc_lsm_cfc
70   
71#else
72   !!----------------------------------------------------------------------
73   !!  Dummy module :                                                No CFC
74   !!----------------------------------------------------------------------
75CONTAINS
76   SUBROUTINE trc_lsm_cfc                      ! Empty routine
77   END  SUBROUTINE  trc_lsm_cfc
78#endif 
79
80   !!======================================================================
81END MODULE trclsm_cfc
Note: See TracBrowser for help on using the repository browser.