Changeset 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

Timestamp:

2013-05-03T14:35:21+02:00 (11 years ago)

Author:

clevy

Message:

Configuration Setting/Step2, see ticket:#1074

File:

• branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90 (modified) (2 diffs)

branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

@@ -51 +51 @@
       NAMELIST/namcfcdate/ ndate_beg, nyear_res
       NAMELIST/namcfcdia/  cfcdia2d     ! additional diagnostics
-      !!-------------------------------------------------------------------
-
-      ndate_beg = 300101            ! default namelist value
-      nyear_res = 1950
-
+      !!----------------------------------------------------------------------
       !                             ! Open namelist files
       CALL ctl_opn( numnatc_ref, 'namelist_cfc_ref'   ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
@@ -85 +81 @@
          ! Namelist namcfcdia
          ! -------------------
-         DO jl = 1, jp_cfc_2d
-            WRITE(cfcdia2d(jl)%sname,'("2D_",I1)') jl                      ! short name
-            WRITE(cfcdia2d(jl)%lname,'("2D DIAGNOSTIC NUMBER ",I2)') jl    ! long name
-            cfcdia2d(jl)%units = ' '                                       ! units
-         END DO
-
          REWIND( numnatc_ref )              ! Namelist namcfcdia in reference namelist : CFC diagnostics
          READ  ( numnatc_ref, namcfcdia, IOSTAT = ios, ERR = 903)