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