Skip to content

Commit

Permalink
pio_errorhandling call was in the wrong location (#973)
Browse files Browse the repository at this point in the history
  • Loading branch information
jedwards4b authored Sep 11, 2024
1 parent 635d9a1 commit 1a89c78
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,6 +741,8 @@ 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 @@ -768,8 +770,6 @@ 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 1a89c78

Please sign in to comment.