Fix silly mistake in last commit

billsacks · Sep 6, 2024 · 74fc9b6 · 74fc9b6
1 parent b570c6f
commit 74fc9b6
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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