Update chgres_cube file open statement (#870)

Add "action='read'" to a Fortran open statement in atmosphere.F90. Fixes bug described in #869.
ufs-community · Nov 17, 2023 · 2f8675f · 2f8675f
1 parent 892b693
commit 2f8675f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sorc/chgres_cube.fd/atmosphere.F90 b/sorc/chgres_cube.fd/atmosphere.F90
@@ -1260,7 +1260,7 @@ subroutine read_vcoord_info
 
  print*
  print*,"OPEN VERTICAL COORD FILE: ", trim(vcoord_file_target_grid)
- open(14, file=trim(vcoord_file_target_grid), form='formatted', iostat=istat)
+ open(14, file=trim(vcoord_file_target_grid), form='formatted', iostat=istat, action='read')
  if (istat /= 0) then
    call error_handler("OPENING VERTICAL COORD FILE", istat)
  endif