168 |
DO j=1-oLy,sNy+oLy |
DO j=1-oLy,sNy+oLy |
169 |
DO i=1-oLx,sNx+oLx |
DO i=1-oLx,sNx+oLx |
170 |
tmpflux(i,j,bi,bj) = |
tmpflux(i,j,bi,bj) = |
171 |
& - Qnet(i,j,bi,bj)*HeatCapacity_Cp*rhoNil*dRf(1) |
& - Qnet(i,j,bi,bj)*HeatCapacity_Cp*rhoConst*dRf(1) |
172 |
ENDDO |
ENDDO |
173 |
ENDDO |
ENDDO |
174 |
ENDDO |
ENDDO |
202 |
DO j=1-oLy,sNy+oLy |
DO j=1-oLy,sNy+oLy |
203 |
DO i=1-oLx,sNx+oLx |
DO i=1-oLx,sNx+oLx |
204 |
tmpflux(i,j,bi,bj) = |
tmpflux(i,j,bi,bj) = |
205 |
& -fu(i,j,bi,bj)*rhoNil*dRf(1)/horiVertRatio |
& -fu(i,j,bi,bj)*rhoConst*dRf(1)/horiVertRatio |
206 |
ENDDO |
ENDDO |
207 |
ENDDO |
ENDDO |
208 |
ENDDO |
ENDDO |
219 |
DO j=1-oLy,sNy+oLy |
DO j=1-oLy,sNy+oLy |
220 |
DO i=1-oLx,sNx+oLx |
DO i=1-oLx,sNx+oLx |
221 |
tmpflux(i,j,bi,bj) = |
tmpflux(i,j,bi,bj) = |
222 |
& -fv(i,j,bi,bj)*rhoNil*dRf(1)/horiVertRatio |
& -fv(i,j,bi,bj)*rhoConst*dRf(1)/horiVertRatio |
223 |
ENDDO |
ENDDO |
224 |
ENDDO |
ENDDO |
225 |
ENDDO |
ENDDO |
312 |
DO j=1-oLy,sNy+oLy |
DO j=1-oLy,sNy+oLy |
313 |
DO i=1-oLx,sNx+oLx |
DO i=1-oLx,sNx+oLx |
314 |
tmpflux(i,j,bi,bj) = |
tmpflux(i,j,bi,bj) = |
315 |
& -Qsw(i,j,bi,bj)*HeatCapacity_Cp*rhoNil*dRf(1) |
& -Qsw(i,j,bi,bj)*HeatCapacity_Cp*rhoConst*dRf(1) |
316 |
ENDDO |
ENDDO |
317 |
ENDDO |
ENDDO |
318 |
ENDDO |
ENDDO |