marked file action as read

NCAR · Mar 29, 2019 · bd83bf9 · bd83bf9
1 parent e1fa3ca
commit bd83bf9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/rip_cape.f90 b/fortran/rip_cape.f90
@@ -176,7 +176,7 @@ SUBROUTINE DLOOKUP_TABLE(psadithte, psadiprs, psaditmk, fname, errstat, errmsg)
 
     !      FNAME = 'psadilookup.dat'
     iustnlist = 33
-    OPEN (UNIT=iustnlist, FILE=fname, FORM='formatted', STATUS='old')
+    OPEN (UNIT=iustnlist, FILE=fname, FORM='formatted', STATUS='old', ACTION='read')
 
     DO i = 1,14
         READ (iustnlist, FMT=*)