Changeset 623 for trunk/NEMO/OPA_SRC/LDF

Timestamp:

2007-02-26T18:26:08+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_024:RB: Use of ctlopn for all files (except for dimg and coupled part)

Location:

trunk/NEMO/OPA_SRC/LDF

Files:

• ldfdyn_c2d.h90 (modified) (2 diffs)
• ldfdyn_c3d.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/LDF/ldfdyn_c2d.h90

@@ -139 +139 @@
       !! * Local variables
       INTEGER ::   ji, jj, jn      ! dummy loop indices
-      INTEGER ::   inum = 11       ! temporary logical unit
-      INTEGER ::   iost, iim, ijm
+      INTEGER ::   inum            ! temporary logical unit
+      INTEGER ::   iim, ijm
       INTEGER ::   ifreq, il1, il2, ij, ii
       INTEGER, DIMENSION(jpidta,jpidta) ::   idata
@@ -165 +165 @@
       ! ===================== equatorial strip (20N-20S) defined at t-points
 
-      OPEN( UNIT=inum, FILE='ahmcoef', STATUS='OLD',   &
-         &  FORM='FORMATTED', ACCESS='SEQUENTIAL', ERR=111 ,   &
-         &  IOSTAT= iost ) 
-      IF( iost == 0 ) THEN
-         IF(lwp) WRITE(numout,*) '     file   : ahmcoef open ok'
-         IF(lwp) WRITE(numout,*) '     unit   = ', inum
-         IF(lwp) WRITE(numout,*) '     status = OLD'
-         IF(lwp) WRITE(numout,*) '     form   = FORMATTED'
-         IF(lwp) WRITE(numout,*) '     access = SEQUENTIAL'
-         IF(lwp) WRITE(numout,*)
-      ENDIF
- 111  CONTINUE 
-      IF( iost /= 0 ) THEN
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) ' ===>>>> : bad opening file: ahmcoef'
-         IF(lwp) WRITE(numout,*) ' =======   ===  '
-         IF(lwp) WRITE(numout,*) '           we stop. verify the file '
-         IF(lwp) WRITE(numout,*)
-         STOP 'ldfdyn_c2d.h90'
-      ENDIF
-
+      CALL ctlopn( inum, 'ahmcoef', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
+         &           1, numout, .TRUE., 1 )
       REWIND inum
       READ(inum,9101) clexp, iim, ijm

trunk/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90

@@ -197 +197 @@
       INTEGER ::   ji, jj, jk, jn      ! dummy loop indices
       INTEGER ::   ii0, ii1, ij0, ij1  ! temporary integers
-      INTEGER ::   inum = 11           ! temporary logical unit
-      INTEGER ::   iost, iim, ijm
+      INTEGER ::   inum                ! temporary logical unit
+      INTEGER ::   iim, ijm
       INTEGER ::   ifreq, il1, il2, ij, ii
       INTEGER, DIMENSION(jpidta, jpjdta) ::   idata
@@ -223 +223 @@
       ! ===================== equatorial strip (20N-20S) defined at t-points
 
-      OPEN( UNIT=inum, FILE='ahmcoef', STATUS='OLD',   &
-         &  FORM='FORMATTED', ACCESS='SEQUENTIAL', ERR=111 ,   &
-         &  IOSTAT= iost)
-      IF( iost == 0 ) THEN
-         IF(lwp) THEN
-            WRITE(numout,*) '     file   : ahmcoef open ok'
-            WRITE(numout,*) '     unit   = ', inum
-            WRITE(numout,*) '     status = OLD'
-            WRITE(numout,*) '     form   = FORMATTED'
-            WRITE(numout,*) '     access = SEQUENTIAL'
-            WRITE(numout,*)
-         ENDIF
-      ENDIF
-111   CONTINUE
-      IF( iost /= 0 ) CALL ctl_stop( ' ',  &
-           &    ' ===>>>> : bad opening file: ahmcoef, verify the file ahmcoef', &
-           &    ' =======   ===  ' )
+      CALL ctlopn( inum, 'ahmcoef', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
+         &         1, numout, .TRUE., 1 )
       REWIND inum
       READ(inum,9101) clexp, iim, ijm