Changeset 6621

Timestamp:

09/14/23 17:29:22 (9 months ago)

Author:

jgipsl

Message:

Integrated changeset 6619 done in the trunk : add possiblity to compile and run with nvidia at MESO-IPSL

Location:

IOIPSL/tags/v2_2_5

Files:

• . (modified) (1 prop)
• arch/arch-nvhpc_MESOIPSL.fcm (copied) (copied from IOIPSL/trunk/arch/arch-nvhpc_MESOIPSL.fcm)
• arch/arch-nvhpc_MESOIPSL.path (copied) (copied from IOIPSL/trunk/arch/arch-nvhpc_MESOIPSL.path)
• src/getincom.f90 (modified) (2 diffs)

IOIPSL/tags/v2_2_5/src/getincom.f90

@@ -1520 +1520 @@
 !-
       dummy = ""
-      READ (UNIT=unitf,FMT='(A)', ADVANCE='NO', SIZE=readlength,ERR=9998,END=7778,IOSTAT=ioerr) dummy
+      READ (UNIT=unitf,FMT='(A)', ADVANCE='NO', SIZE=readlength,END=7778,IOSTAT=ioerr) dummy
+
       IF ((ioerr==IOSTAT_EOR).OR.(ioerr==IOSTAT_END)) ioerr = 0
 !-
@@ -1537 +1538 @@
   RETURN
 !-
-9998 CONTINUE
-  CALL ipslerr (3,'getin_readline','Error while reading file',' ',' ')
-!-
+! IOSTAT gives a positive value if an error occurs.
+  IF (ioerr.GT. 0) CALL ipslerr (3,'getin_readline','Error while reading file',' ',' ')
+
+  !-
 7778 CONTINUE
   out_string = TRIM(dummy)