Skip to content

Commit

Permalink
Merge branch 'NOAA-EMC:dev/emc' into feature/update-to-main-20240531
Browse files Browse the repository at this point in the history
  • Loading branch information
jiandewang authored Aug 6, 2024
2 parents aacb909 + 4b8777e commit 5c9aee9
Showing 1 changed file with 5 additions and 0 deletions.
5 changes: 5 additions & 0 deletions config_src/drivers/nuopc_cap/mom_cap.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2371,6 +2371,11 @@ subroutine SetScalarField(field, rc)
ungriddedLBound=(/1/), ungriddedUBound=(/scalar_field_count/), gridToFieldMap=(/2/), rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return

! initialize fldptr to zero
call ESMF_FieldGet(field, farrayPtr=fldptr2d, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
fldptr2d(:,:) = 0.0

end subroutine SetScalarField

end subroutine MOM_RealizeFields
Expand Down

0 comments on commit 5c9aee9

Please sign in to comment.