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.h90 in trunk/NEMO/TOP_SRC/SMS – NEMO

source: trunk/NEMO/TOP_SRC/SMS/trclsm.cfc.h90 @ 336

Last change on this file since 336 was 336, checked in by opalod, 19 years ago

nemo_v1_update_024 : CE + RB + CT : new evolution of modules
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.9 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                    ***  trclsm.cfc.h90 ***
3   !!----------------------------------------------------------------------
4CONTAINS
5
6   SUBROUTINE trc_lsm
7      !!-------------------------------------------------------------------
8      !!                  ***  ROUTINE trc_lsm ***
9      !!                 
10      !! ** Purpose :   Definition some run parameter for CFC model
11      !!
12      !! ** Method  :   Read the namcfc namelist and check the parameter
13      !!       values called at the first timestep (nit000)
14      !!
15      !! ** input   :   Namelist namcfc
16      !!
17      !! history :
18      !!   2.0  !  03-08 (C. Ethe)  Original code
19      !!-------------------------------------------------------------------
20
21      CHARACTER (len=32) ::  &
22         clname = 'namelist.sms.cfc'
23      INTEGER ::  &
24         numnat = 80
25
26      NAMELIST/namdates/ndate_beg, nyear_res
27      !!-------------------------------------------------------------------
28
29      ndate_beg = 300101
30      nyear_res = 1950
31
32      IF(lwp) THEN
33         WRITE(numout,*) ' '
34         WRITE(numout,*) ' Namelist for CFC model'
35         WRITE(numout,*) ' ***********************'
36         WRITE(numout,*) ' '
37      ENDIF
38
39      OPEN( UNIT=numnat, FILE=clname, FORM='FORMATTED', STATUS='OLD' )
40      READ( numnat , namdates )
41
42      IF(lwp) THEN
43         WRITE(numout,*)
44         WRITE(numout,*) ' trc_lsm: Namelist parameter'
45         WRITE(numout,*) ' ~~~~~~~~~~~~~~'
46         WRITE(numout,*) '  initial calendar date (aammjj) for CFC  ndate_beg = ', ndate_beg
47         WRITE(numout,*) '  restoring time constant (year)          nyear_res = ', nyear_res
48      ENDIF
49      nyear_beg = ndate_beg / 10000
50      IF(lwp) THEN
51         WRITE(numout,*) '  initial year (aa)                       nyear_beg = ', nyear_beg
52         WRITE(numout,*) ' '
53      ENDIF
54
55   END SUBROUTINE trc_lsm
56
Note: See TracBrowser for help on using the repository browser.