wsmrarea0 = 0.5 _d 0
& wsmrarea0, wmean_smrarea, smrarea_errfile,
wsmrarea(i,j,bi,bj) = wsmrarea0
_RL wsmrarea0
& , wsmrarea0