_RL fctilemm
fctilemm = 0. _d 0
fctilemm = fctilemm + tmpx
fctilemm = (fctilemm / sumcos)
fctilemm = whfluxmm(bi,bj) * (fctilemm )
objf_hfluxmm(bi,bj) = fctilemm
fcthreadmm = fcthreadmm + fctilemm
fctilemm = fctilemm+tmpx*cos(yc(i,j,bi,bj)*deg2rad)
fctilemm = wsfluxmm(bi,bj) * (fctilemm )
objf_sfluxmm(bi,bj) = fctilemm