& layers_TtendSurf, layers_TtendDiffh, layers_TtendDiffr,
_RL layers_TtendSurf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,
& layers_TtendSurf,
CALL DIAGNOSTICS_FILL( layers_TtendSurf,
layers_TtendSurf (i,j,kg,bi,bj) = 0. _d 0