Changeset 742 for trunk/NEMO/OPA_SRC

Timestamp:

2007-12-06T11:36:22+01:00 (16 years ago)

Author:

smasson

Message:

bugfix for short filenames in iom_open, see ticket:24

File:

• trunk/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/IOM/iom.F90

@@ -117 +117 @@
       iln = LEN_TRIM(clname)
       ils = LEN_TRIM(clsuffix)
-      IF( INDEX( TRIM(clname), TRIM(clsuffix), back = .TRUE. ) /= iln - ils + 1 ) clname = TRIM(clname)//TRIM(clsuffix)
+      IF( iln <= ils .OR. INDEX( TRIM(clname), TRIM(clsuffix), back = .TRUE. ) /= iln - ils + 1 )   &
+         &   clname = TRIM(clname)//TRIM(clsuffix)
       cltmpn = clname   ! store this name
       ! try to find if the file to be opened already exist