Changeset 1581 for trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90

Timestamp:

2009-08-05T16:53:12+02:00 (15 years ago)

Author:

smasson

Message:

ctlopn cleanup, see ticket:515 and ticket:237

File:

• trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90

@@ -66 +66 @@
       INTEGER  ::   inum                  ! temporary logical unit
       INTEGER  ::   ikty, iyear           ! 
-      CHARACTER (len=32) ::   clname 
       REAL(wp) ::   z_emp, z_emp_nsrf       ! temporary scalars
       REAL(wp) ::   zsurf_neg, zsurf_pos, zsurf_tospread
@@ -115 +114 @@
          IF( kt == nit000 ) THEN
             ! Read the corrective factor on precipitations (empold)
-            clname = 'EMPave_old.dat'
-            CALL ctlopn( inum, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   &
-               &           1, numout, .FALSE., 1 )
-
+            CALL ctl_opn( inum, 'EMPave_old.dat', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
             READ ( inum, "(24X,I8,2ES24.16)" ) iyear, a_fwb_b, a_fwb
             CLOSE( inum )
@@ -149 +145 @@
          ! save empold value in a file
          IF( kt == nitend .AND. lwp ) THEN
-            clname = 'EMPav.dat'    
-            CALL ctlopn( inum, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
-               &           1, numout, .FALSE., 0 )
-            WRITE(inum, "(24X,I8,2ES24.16)" ) nyear, a_fwb_b, a_fwb
+            CALL ctl_opn( inum, 'EMPave.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea )
+            WRITE( inum, "(24X,I8,2ES24.16)" ) nyear, a_fwb_b, a_fwb
+            CLOSE( inum )
          ENDIF
          !