From 2f8675fc85262e9dda77208ae89e6e486a39dbf5 Mon Sep 17 00:00:00 2001 From: Dom Heinzeller Date: Fri, 17 Nov 2023 11:44:59 -0700 Subject: [PATCH] Update chgres_cube file open statement (#870) Add "action='read'" to a Fortran open statement in atmosphere.F90. Fixes bug described in #869. --- sorc/chgres_cube.fd/atmosphere.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sorc/chgres_cube.fd/atmosphere.F90 b/sorc/chgres_cube.fd/atmosphere.F90 index c13e709b6..cccee336f 100644 --- 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