_RL layers_TimeAve(nSx,nSy)
COMMON /LAYERS_TAVE/ layers_TimeAve
layers_TimeAve(bi,bj)=layers_TimeAve(bi,bj)+deltaTclock
layers_TimeAve(bi,bj) = 0. _d 0
layers_TimeAve(bi,bj) = 0.