Skip to content

Commit 5c9aee9

Browse files
authored
Merge branch 'NOAA-EMC:dev/emc' into feature/update-to-main-20240531
2 parents aacb909 + 4b8777e commit 5c9aee9

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

config_src/drivers/nuopc_cap/mom_cap.F90

+5
Original file line numberDiff line numberDiff line change
@@ -2371,6 +2371,11 @@ subroutine SetScalarField(field, rc)
23712371
ungriddedLBound=(/1/), ungriddedUBound=(/scalar_field_count/), gridToFieldMap=(/2/), rc=rc)
23722372
if (ChkErr(rc,__LINE__,u_FILE_u)) return
23732373

2374+
! initialize fldptr to zero
2375+
call ESMF_FieldGet(field, farrayPtr=fldptr2d, rc=rc)
2376+
if (ChkErr(rc,__LINE__,u_FILE_u)) return
2377+
fldptr2d(:,:) = 0.0
2378+
23742379
end subroutine SetScalarField
23752380

23762381
end subroutine MOM_RealizeFields

0 commit comments

Comments
 (0)