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