Skip to content

Commit

Permalink
Revert "pio_errorhandling call was in the wrong location (CICE-Consor…
Browse files Browse the repository at this point in the history
…tium#973)"

This reverts commit 1a89c78.
  • Loading branch information
BrianCurtis-NOAA committed Sep 24, 2024
1 parent c0e090c commit 956dc6d
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions cicecore/cicedyn/infrastructure/io/io_pio2/ice_restart.F90
Original file line number Diff line number Diff line change
Expand Up @@ -741,8 +741,6 @@ subroutine read_restart_field(nu,nrec,work,atype,vname,ndim3,diag, &
call ice_pio_check(pio_inq_varndims(File, vardesc, ndims), &
subname// " ERROR: missing varndims "//trim(vname),file=__FILE__,line=__LINE__)

call pio_seterrorhandling(File, PIO_INTERNAL_ERROR)

if (ndim3 == ncat .and. ndims == 3) then
call pio_read_darray(File, vardesc, iodesc3d_ncat, work, status)
#ifdef CESMCOUPLED
Expand Down Expand Up @@ -770,6 +768,8 @@ subroutine read_restart_field(nu,nrec,work,atype,vname,ndim3,diag, &
call ice_pio_check(status, &
subname//" ERROR: reading var "//trim(vname),file=__FILE__,line=__LINE__)

call pio_seterrorhandling(File, PIO_INTERNAL_ERROR)

if (diag) then
if (ndim3 > 1) then
do n=1,ndim3
Expand Down

0 comments on commit 956dc6d

Please sign in to comment.