Changeset 1581 for trunk/NEMO/OPA_SRC/SOL/solver.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/SOL/solver.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SOL/solver.F90

@@ -65 +65 @@
       INTEGER, INTENT(in) :: kt
 
-      !! * Local declarations
-      CHARACTER(len=80) :: clname
-
       NAMELIST/namsol/ nsolv, nsol_arp, nmin, nmax, nmod, eps, resmax, sor, rnu
       !!----------------------------------------------------------------------
 
-      IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) 'solver_init : solver to compute the surface pressure gradient'
-      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
-
-      ! open elliptic solver statistics file
-      clname = 'solver.stat'
-      CALL ctlopn( numsol, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
-                   1, numout, lwp, 1 )
+      IF(lwp) THEN
+         WRITE(numout,*)
+         WRITE(numout,*) 'solver_init : solver to compute the surface pressure gradient'
+         WRITE(numout,*) '~~~~~~~~~~~'
+         
+         ! open elliptic solver statistics file
+         CALL ctl_opn( numsol, 'solver.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
+      ENDIF