source: branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90 @ 7041

Last change on this file since 7041 was 7041, checked in by cetlod, 4 years ago

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

  • Property svn:keywords set to Id
File size: 3.1 KB
Line 
1MODULE trcnam_cfc
2   !!======================================================================
3   !!                         ***  MODULE trcnam_cfc  ***
4   !! TOP :   initialisation of some run parameters for CFC chemical model
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trcnam.cfc.h90
7   !!----------------------------------------------------------------------
8   !! trc_nam_cfc      : CFC model initialisation
9   !!----------------------------------------------------------------------
10   USE oce_trc         ! Ocean variables
11   USE trc             ! TOP variables
12   USE trcsms_cfc      ! CFC specific variable
13
14   IMPLICIT NONE
15   PRIVATE
16
17   PUBLIC   trc_nam_cfc   ! called by trcnam.F90 module
18
19   !!----------------------------------------------------------------------
20   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
21   !! $Id$
22   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
23   !!----------------------------------------------------------------------
24
25CONTAINS
26
27   SUBROUTINE trc_nam_cfc
28      !!-------------------------------------------------------------------
29      !!                  ***  ROUTINE trc_nam_cfc  ***
30      !!                 
31      !! ** Purpose :   Definition some run parameter for CFC model
32      !!
33      !! ** Method  :   Read the namcfc namelist and check the parameter
34      !!       values called at the first timestep (nittrc000)
35      !!
36      !! ** input   :   Namelist namcfc
37      !!----------------------------------------------------------------------
38      INTEGER :: ios                 ! Local integer output status for namelist read
39      INTEGER :: jl, jn
40      !!
41      NAMELIST/namcfc/ ndate_beg, nyear_res
42      !!----------------------------------------------------------------------
43
44      REWIND( numtrc_ref )              ! Namelist namcfcdate in reference namelist : CFC parameters
45      READ  ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901)
46901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in reference namelist', lwp )
47
48      REWIND( numtrc_cfg )              ! Namelist namcfcdate in configuration namelist : CFC parameters
49      READ  ( numtrc_cfg, namcfc, IOSTAT = ios, ERR = 902 )
50902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in configuration namelist', lwp )
51      IF(lwm) WRITE ( numonr, namcfc )
52
53      IF(lwp) THEN                  ! control print
54         WRITE(numout,*)
55         WRITE(numout,*) ' trc_nam: Read namdates, namelist for CFC chemical model'
56         WRITE(numout,*) ' ~~~~~~~'
57         WRITE(numout,*) '    initial calendar date (aammjj) for CFC  ndate_beg = ', ndate_beg
58         WRITE(numout,*) '    restoring time constant (year)          nyear_res = ', nyear_res
59      ENDIF
60      nyear_beg = ndate_beg / 10000
61      IF(lwp) WRITE(numout,*) '    initial year (aa)                       nyear_beg = ', nyear_beg
62      !
63      IF(lwm) CALL FLUSH ( numonr )     ! flush output namelist CFC
64
65   END SUBROUTINE trc_nam_cfc
66   
67   !!======================================================================
68END MODULE trcnam_cfc
Note: See TracBrowser for help on using the repository browser.