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