From 74fc9b6381b633a74925bf8b333e4d1afe83242a Mon Sep 17 00:00:00 2001
From: Bill Sacks <sacks@ucar.edu>
Date: Fri, 6 Sep 2024 12:44:31 -0600
Subject: [PATCH] Fix silly mistake in last commit

---
 tools/mksurfdata_esmf/src/mksoiltexMod.F90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tools/mksurfdata_esmf/src/mksoiltexMod.F90 b/tools/mksurfdata_esmf/src/mksoiltexMod.F90
index 4c13d00f45..e929896a85 100644
--- a/tools/mksurfdata_esmf/src/mksoiltexMod.F90
+++ b/tools/mksurfdata_esmf/src/mksoiltexMod.F90
@@ -180,6 +180,7 @@ subroutine mksoiltex(file_mesh_i, file_mapunit_i, file_lookup_i, mesh_o, pioid_o
 
     ! Create a route handle
     if (root_task) write(ndiag,*)" before route handle creation "//trim(subname)
+    if (root_task) write(ndiag,*)"WJS: srcTermProcessing_Value = ", srcTermProcessing_Value
     call ESMF_FieldRegridStore(field_i, field_o, routehandle=routehandle, &
          regridmethod=ESMF_REGRIDMETHOD_CONSERVE, srcTermProcessing=srcTermProcessing_Value, &
          ignoreDegenerate=.true., unmappedaction=ESMF_UNMAPPEDACTION_IGNORE, rc=rc)
@@ -584,9 +585,9 @@ subroutine get_dominant_mapunit(dynamicMaskList, dynamicSrcMaskValue, dynamicDst
     if (associated(dynamicMaskList)) then
        do no = 1, size(dynamicMaskList)
           if (size(dynamicMaskList(no)%factor) > 0) then
-             dynamicMaskList(no)%factor = dynamicMaskList(no)%srcElement(1)
+             dynamicMaskList(no)%dstElement = dynamicMaskList(no)%srcElement(1)
           else
-             dynamicMaskList(no)%factor = -999
+             dynamicMaskList(no)%dstElement = -999
           end if
        end do
     end if