climsstconst = 0. _d 0
& climsssfile, climsstconst, climsssconst,
climsst (i,j,bi,bj) = climsstconst
_RL climsstconst
& climsstconst, climsssconst