From f63ebf25a5c0c0702a0255d437c41ea95bbbe766 Mon Sep 17 00:00:00 2001 From: Michael Waxmonsky Date: Thu, 27 Jun 2024 16:10:24 -0600 Subject: [PATCH] Removing commented code and updating standard name. --- src/dynamics/utils/hycoef.F90 | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/dynamics/utils/hycoef.F90 b/src/dynamics/utils/hycoef.F90 index 33817faa..33ee5a2f 100644 --- a/src/dynamics/utils/hycoef.F90 +++ b/src/dynamics/utils/hycoef.F90 @@ -478,10 +478,7 @@ subroutine hycoef_read(File) ! Check whether file contains value for P0. If it does then use it ierr = pio_inq_varid(file, 'P0', p0_desc) if (ierr /= PIO_NOERR) then - ierr = pio_inq_varid(File, 'reference_pressure', p0_desc) - !if (ierr /= PIO_NOERR) then - ! call endrun(routine//': reading P0') - !end if + ierr = pio_inq_varid(File, 'surface_reference_pressure', p0_desc) end if if (ierr == PIO_NOERR) then ierr = pio_get_var(file, p0_desc, ps0)