Removing commented code and updating standard name.

mwaxmonsky · Jun 27, 2024 · f63ebf2 · f63ebf2
1 parent dfd52b1
commit f63ebf2
Showing 1 changed file with 1 addition and 4 deletions.
diff --git 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)