Changeset 336 for trunk/NEMO/TOP_SRC/SMS/trclsm.cfc.h90

Timestamp:

2005-11-14T13:13:26+01:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_024 : CE + RB + CT : new evolution of modules

File:

• trunk/NEMO/TOP_SRC/SMS/trclsm.cfc.h90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/SMS/trclsm.cfc.h90

@@ -1 @@
-!!!
-!!!                       trclsm.cfc.h
-!!!                       ****************
-!!!
-!!!  PURPOSE :
-!!!  ---------
-!!!     READs and PRINT options for cfc  namelist
+   !!----------------------------------------------------------------------
+   !!                    ***  trclsm.cfc.h90 ***
+   !!----------------------------------------------------------------------
+CONTAINS
 
-#if defined key_passivetrc && defined key_cfc
+   SUBROUTINE trc_lsm
+      !!-------------------------------------------------------------------
+      !!                  ***  ROUTINE trc_lsm ***
+      !!                 
+      !! ** Purpose :   Definition some run parameter for CFC model
+      !!
+      !! ** Method  :   Read the namcfc namelist and check the parameter 
+      !!       values called at the first timestep (nit000)
+      !!
+      !! ** input   :   Namelist namcfc
+      !!
+      !! history :
+      !!   2.0  !  03-08 (C. Ethe)  Original code
+      !!-------------------------------------------------------------------
 
-      CHARACTER (len=32) :: clname
+      CHARACTER (len=32) ::  &
+         clname = 'namelist.sms.cfc'
+      INTEGER ::  &
+         numnat = 80
 
+      NAMELIST/namdates/ndate_beg, nyear_res
+      !!-------------------------------------------------------------------
 
-!!---------------------------------------------------------------------
-!!  TOP 1.0,  LOCEAN-IPSL (2005)
-!! $Header$
-!! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
-!!---------------------------------------------------------------------
-
-! 0. initializations
-! ------------------
-
-      NAMELIST/coffset/xinitri
-
-      numnat=80
-      clname ='namelist.sms.cfc'
-      OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old')
-
-
-!  Namelist traback :
-!  ------------------
-      READ(numnat,coffset)
+      ndate_beg = 300101
+      nyear_res = 1950
 
       IF(lwp) THEN
-          WRITE(numout,*) ' '
-          WRITE(numout,*) 'coffset'
-          write(numout,coffset)
-          WRITE(numout,*) ' '
+         WRITE(numout,*) ' '
+         WRITE(numout,*) ' Namelist for CFC model'
+         WRITE(numout,*) ' ***********************'
+         WRITE(numout,*) ' '
       ENDIF
 
-#endif
+      OPEN( UNIT=numnat, FILE=clname, FORM='FORMATTED', STATUS='OLD' )
+      READ( numnat , namdates )
 
+      IF(lwp) THEN
+         WRITE(numout,*)
+         WRITE(numout,*) ' trc_lsm: Namelist parameter'
+         WRITE(numout,*) ' ~~~~~~~~~~~~~~'
+         WRITE(numout,*) '  initial calendar date (aammjj) for CFC  ndate_beg = ', ndate_beg
+         WRITE(numout,*) '  restoring time constant (year)          nyear_res = ', nyear_res
+      ENDIF
+      nyear_beg = ndate_beg / 10000
+      IF(lwp) THEN
+         WRITE(numout,*) '  initial year (aa)                       nyear_beg = ', nyear_beg
+         WRITE(numout,*) ' '
+      ENDIF
 
+   END SUBROUTINE trc_lsm
 
-
-
-
-
-