Changeset 1581 for trunk/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90

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/LDF/ldfdyn_c3d.h90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90

@@ -235 +235 @@
       ! ===================== equatorial strip (20N-20S) defined at t-points
 
-      CALL ctlopn( inum, 'ahmcoef', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
-         &         1, numout, lwp, 1 )
-      REWIND inum
+      CALL ctl_opn( inum, 'ahmcoef', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
       READ(inum,9101) clexp, iim, ijm
       READ(inum,'(/)')