Changeset 4147 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

Timestamp:

2013-11-04T12:51:55+01:00 (10 years ago)

Author:

cetlod

Message:

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

File:

• branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90 (modified) (4 diffs)

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

@@ -42 +42 @@
       !! ** input   :   Namelist namcfc
       !!----------------------------------------------------------------------
-      INTEGER ::  numnatc
+      INTEGER ::  numnatc_ref = -1   ! Logical unit for reference CFC namelist
+      INTEGER ::  numnatc_cfg = -1   ! Logical unit for configuration CFC namelist
+      INTEGER ::  numonc      = -1   ! Logical unit for output namelist
+      INTEGER :: ios                 ! Local integer output status for namelist read
       INTEGER :: jl, jn
       TYPE(DIAG), DIMENSION(jp_cfc_2d) :: cfcdia2d
@@ -48 +51 @@
       NAMELIST/namcfcdate/ ndate_beg, nyear_res
       NAMELIST/namcfcdia/  cfcdia2d     ! additional diagnostics
-      !!-------------------------------------------------------------------
+      !!----------------------------------------------------------------------
+      !                             ! Open namelist files
+      CALL ctl_opn( numnatc_ref, 'namelist_cfc_ref'   ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
+      CALL ctl_opn( numnatc_cfg, 'namelist_cfc_cfg'   ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
+      CALL ctl_opn( numonc     , 'output.namelist.cfc', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
 
-      ndate_beg = 300101            ! default namelist value
-      nyear_res = 1950
+      REWIND( numnatc_ref )              ! Namelist namcfcdate in reference namelist : CFC parameters
+      READ  ( numnatc_ref, namcfcdate, IOSTAT = ios, ERR = 901)
+901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdate in reference namelist', lwp )
 
-      !                             ! Open namelist file
-      CALL ctl_opn( numnatc, 'namelist_cfc', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
-         
-      READ( numnatc , namcfcdate )     ! read namelist
+      REWIND( numnatc_cfg )              ! Namelist namcfcdate in configuration namelist : CFC parameters
+      READ  ( numnatc_cfg, namcfcdate, IOSTAT = ios, ERR = 902 )
+902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdate in configuration namelist', lwp )
+      WRITE ( numonc, namcfcdate )
 
       IF(lwp) THEN                  ! control print
@@ -73 +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)
+903      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in reference namelist', lwp )
 
-         REWIND( numnatc )               ! read natrtd
-         READ  ( numnatc, namcfcdia )
+         REWIND( numnatc_cfg )              ! Namelist namcfcdia in configuration namelist : CFC diagnostics
+         READ  ( numnatc_cfg, namcfcdia, IOSTAT = ios, ERR = 904 )
+904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in configuration namelist', lwp )
+         WRITE ( numonc, namcfcdia )
 
          DO jl = 1, jp_cfc_2d
@@ -102 +110 @@
       ENDIF
 
+   CALL FLUSH ( numonc )     ! flush output namelist CFC
+
    END SUBROUTINE trc_nam_cfc