Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Bug fixes for GSL MPAS runs #43

Open
wants to merge 12 commits into
base: master
Choose a base branch
from
Prev Previous commit
Next Next commit
More small changes to write_data.F90
EricJames-NOAA committed Oct 16, 2024
commit c4065dea736671f232acd7f4e92d3cf800572bb5
2 changes: 1 addition & 1 deletion write_data.F90
Original file line number Diff line number Diff line change
@@ -1324,7 +1324,7 @@ subroutine write_to_file(localpet)
call error_handler("IN FieldGet", error)
call ESMF_FieldGet(field_extra3(i), farrayPtr = dum3dptr, rc=error)
if (ESMF_logFoundError(rcToCheck=error, msg=ESMF_LOGERR_PASSTHRU, line=__LINE__, file=__FILE__)) &
call error_handler("IN FieldGet", error)
call error_handler("IN FieldGet", error)

dum3d(:,:,:) = dum3dptr(clb(1):cub(1),clb(2):cub(2),:)
if (localpet == 0) print *, trim(varname), minval(dum3d), maxval(dum3d)