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