genprecipGloH=LOCsumGlob/globalArea
& ' iter=', myiter, ' ; genprecipGloH= ', genprecipGloH
_RL LOCsumTile(nSx,nSy), LOCsumGlob, genprecipGloH
_RL genprecipGloH
genprecipGloH=0. _d 0
& genprecipGloH=xx_gentim2d(i,j,bi,bj,iarr)
& +genprecipGloH