Changeset 1119 for trunk/NEMO/TOP_SRC/CFC/trclsm_cfc.F90

Timestamp:

2008-06-20T17:17:41+02:00 (16 years ago)

Author:

cetlod

Message:

style of all top namelist has been modified ; update modules to take it into account, see ticket:196

File:

• trunk/NEMO/TOP_SRC/CFC/trclsm_cfc.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/CFC/trclsm_cfc.F90

@@ -44 +44 @@
       INTEGER ::   numnat
       !!
-      NAMELIST/namdates/ ndate_beg, nyear_res
+      NAMELIST/namcfcdate/ ndate_beg, nyear_res
       !!-------------------------------------------------------------------
 
@@ -54 +54 @@
          &           1, numout, .FALSE., 1 )
          
-      READ( numnat , namdates )     ! read namelist
+      READ( numnat , namcfcdate )     ! read namelist
 
       IF(lwp) THEN                  ! control print