Changeset 623 for trunk/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90
- Timestamp:
- 2007-02-26T18:26:08+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90
r473 r623 197 197 INTEGER :: ji, jj, jk, jn ! dummy loop indices 198 198 INTEGER :: ii0, ii1, ij0, ij1 ! temporary integers 199 INTEGER :: inum = 11! temporary logical unit200 INTEGER :: i ost, iim, ijm199 INTEGER :: inum ! temporary logical unit 200 INTEGER :: iim, ijm 201 201 INTEGER :: ifreq, il1, il2, ij, ii 202 202 INTEGER, DIMENSION(jpidta, jpjdta) :: idata … … 223 223 ! ===================== equatorial strip (20N-20S) defined at t-points 224 224 225 OPEN( UNIT=inum, FILE='ahmcoef', STATUS='OLD', & 226 & FORM='FORMATTED', ACCESS='SEQUENTIAL', ERR=111 , & 227 & IOSTAT= iost) 228 IF( iost == 0 ) THEN 229 IF(lwp) THEN 230 WRITE(numout,*) ' file : ahmcoef open ok' 231 WRITE(numout,*) ' unit = ', inum 232 WRITE(numout,*) ' status = OLD' 233 WRITE(numout,*) ' form = FORMATTED' 234 WRITE(numout,*) ' access = SEQUENTIAL' 235 WRITE(numout,*) 236 ENDIF 237 ENDIF 238 111 CONTINUE 239 IF( iost /= 0 ) CALL ctl_stop( ' ', & 240 & ' ===>>>> : bad opening file: ahmcoef, verify the file ahmcoef', & 241 & ' ======= === ' ) 225 CALL ctlopn( inum, 'ahmcoef', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 226 & 1, numout, .TRUE., 1 ) 242 227 REWIND inum 243 228 READ(inum,9101) clexp, iim, ijm
Note: See TracChangeset
for help on using the changeset viewer.