Another simple but wrong mapping

billsacks · Sep 6, 2024 · b570c6f · b570c6f
1 parent 8212f49
commit b570c6f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/tools/mksurfdata_esmf/src/mksoiltexMod.F90 b/tools/mksurfdata_esmf/src/mksoiltexMod.F90
@@ -583,7 +583,11 @@ subroutine get_dominant_mapunit(dynamicMaskList, dynamicSrcMaskValue, dynamicDst
 
     if (associated(dynamicMaskList)) then
        do no = 1, size(dynamicMaskList)
-          dynamicMaskList(no)%dstElement = size(dynamicMaskList(no)%factor)
+          if (size(dynamicMaskList(no)%factor) > 0) then
+             dynamicMaskList(no)%factor = dynamicMaskList(no)%srcElement(1)
+          else
+             dynamicMaskList(no)%factor = -999
+          end if
        end do
     end if