Changeset 1581 for trunk/NEMO/OPA_SRC/stpctl.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/stpctl.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/stpctl.F90

@@ -56 +56 @@
       INTEGER, DIMENSION(3) ::   ilocu      ! 
       INTEGER, DIMENSION(2) ::   ilocs      ! 
-      CHARACTER(len=80) :: clname
       !!----------------------------------------------------------------------
 
@@ -64 +63 @@
          WRITE(numout,*) '~~~~~~~'
          ! open time.step file
-         clname = 'time.step'
-         CALL ctlopn( numstp, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 1 )
+         CALL ctl_opn( numstp, 'time.step', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
       ENDIF
 
@@ -158 +156 @@
          ENDIF
          !
-      ELSE                                            !* ssh statistics (and others...)
-         IF( kt == nit000 ) THEN      ! open ssh statistics file (put in solver.stat file)
-            CALL ctlopn( numsol, 'solver.stat', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 1 )
+      ELSE                                   !* ssh statistics (and others...)
+         IF( kt == nit000 .AND. lwp ) THEN   ! open ssh statistics file (put in solver.stat file)
+            CALL ctl_opn( numsol, 'solver.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
          ENDIF
          !