Open input files with read-only rather than readwrite to prevent lock

storms

Author: ioanhadade

src/ecwam/wvwaminit.F90

@@ -164,7 +164,7 @@ SUBROUTINE WVWAMINIT (LLCOUPLED, IULOG, LLRNL,                    &
           CALL WAM_ABORT("WAVE MODEL INPUT FILE '"//FILENAME(1:LFILE)//"' IS MISSING !!!",&
                         &__FILENAME__,__LINE__)
         ENDIF
-        IU07 = IWAM_GET_UNIT(IU06, FILENAME(1:LFILE) , 'r', 'u',0,'READWRITE')
+        IU07 = IWAM_GET_UNIT(IU06, FILENAME(1:LFILE) , 'r', 'u',0,'READ')
 
         IF (IPROPAGS < 0 .OR. IPROPAGS > NPROPAGS) THEN
           WRITE(IU06,*) '************************************'
@@ -195,7 +195,7 @@ SUBROUTINE WVWAMINIT (LLCOUPLED, IULOG, LLRNL,                    &
           CALL WAM_ABORT("WAVE MODEL INPUT FILE '"//FILENAME(1:LFILE)//"' IS MISSING !!!",&
                         &__FILENAME__,__LINE__)
         ENDIF
-        IU08(IPROPAGS) = IWAM_GET_UNIT(IU06, FILENAME(1:LFILE),'r','u',0,'READWRITE')
+        IU08(IPROPAGS) = IWAM_GET_UNIT(IU06, FILENAME(1:LFILE),'r','u',0,'READ')
       ENDIF
 
       KTAG=1
@@ -214,4 +214,4 @@ SUBROUTINE WVWAMINIT (LLCOUPLED, IULOG, LLRNL,                    &
 
       IF (LHOOK) CALL DR_HOOK('WVWAMINIT',1,ZHOOK_HANDLE)
 
-      END SUBROUTINE WVWAMINIT
+      END SUBROUTINE WVWAMINIT