Changeset 6619 for IOIPSL

Timestamp:

09/13/23 15:57:39 (10 months ago)

Author:

jgipsl

Message:

Correction needed for nvida compilers : ERR and IOSTAT can not be used at the same time. No change in the functioning of the subroutine.
New arch for compilation with nvida on MESO-IPSL cluster (spirit,spiritx,hal).

Done by Kazem Ardaneh

Location:

IOIPSL/trunk

Files:

• arch/arch-nvhpc_MESOIPSL.fcm (added)
• arch/arch-nvhpc_MESOIPSL.path (added)
• src/getincom.f90 (modified) (2 diffs)

IOIPSL/trunk/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)