Commit 793198e4 authored by Robert Schweppe's avatar Robert Schweppe
Browse files

[skip_ci]

- added some temporary print outs to see what is happening
parent 2f1287a9
Pipeline #28217 skipped
......@@ -632,8 +632,7 @@ contains
" (", self%newShapes(:,iCoord), ")"
log_debug(*) "Cells of output array: ", product(self%newShapes(:,iCoord+1)), &
" (", self%newShapes(:,iCoord+1), ")"
call coord_upscaler%get_stats()
print*, "size(currentNanWeights, kind=ix)", size(currentNanWeights, kind=ix)
if (size(currentNanWeights, kind=ix) == 0) then
! call the upscaling function
call coord_upscaler%execute(currentArray=currentArray, currentMask=currentMask, &
......@@ -1133,10 +1132,13 @@ contains
! the effective index array for the packed currentArray declaring which subcells are needed for iCell of newArray
effectiveSubcellIds = (self%ids(1:self%subcells(subcellIds(iCell)), subcellIds(iCell)) - 1) * &
idMultiplier + 1 + idAddon(iCell)
log_subtrace(*) 'execute_CoordUpscaler: at newCell (', iCell, ') using the ids (', &
effectiveSubcellIds, ') with these values (', currentArray(effectiveSubcellIds), &
') and those weights (', self%weights(1:self%subcells(subcellIds(iCell)), subcellIds(iCell)), &
') in mode without doNeedWeights and without NanWeights'
call self%get_stats()
if (iCell == 1) then
log_info(*) 'execute_CoordUpscaler: at newCell (', iCell, ') using the ids (', &
effectiveSubcellIds, ') with these values (', currentArray(effectiveSubcellIds), &
') and those weights (', self%weights(1:self%subcells(subcellIds(iCell)), subcellIds(iCell)), &
') in mode without doNeedWeights and without NanWeights'
end if
! now execute the upscaling for the current cell
call wrap_upscale(&
upscaleFunc, &
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment