From e6f2e7b6f137cab3bda939c4c1c92da4be46c801 Mon Sep 17 00:00:00 2001 From: Dom Heinzeller Date: Thu, 9 Nov 2023 13:12:09 -0700 Subject: [PATCH] Update atmosphere.F90 add "action='read'" to Fortran file open statement --- 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