fctilem = 0. _d 0
fctilem = fctilem
objf_hfluxm(bi,bj) = objf_hfluxm(bi,bj) + fctilem
fcthread = fcthread + fctilem
& fctilem
_RL fctilem
objf_tauum(bi,bj) = objf_tauum(bi,bj) + fctilem
objf_sfluxm(bi,bj) = objf_sfluxm(bi,bj) + fctilem
objf_tauvm(bi,bj) = objf_tauvm(bi,bj) + fctilem