& wbottomdrag0,wdiffkr0, wkapgm0, wedtau0
_RL wbottomdrag0
wbottomdrag (i,j,bi,bj) = wbottomdrag0
& wbottomdrag0,
wbottomdrag0 = 1. _d 0