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