New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
trclsm_cfc.F90 in trunk/NEMO/TOP_SRC/CFC – NEMO

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

Last change on this file since 1070 was 1070, checked in by cetlod, 16 years ago

update CFC model, see ticket:190

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