198 |
DO j=1,sNy |
DO j=1,sNy |
199 |
DO i=1,sNx+1 |
DO i=1,sNx+1 |
200 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
201 |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
202 |
|
tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau |
203 |
ENDDO |
ENDDO |
204 |
ENDDO |
ENDDO |
205 |
DO j=1,sNy+1 |
DO j=1,sNy+1 |
206 |
DO i=1,sNx |
DO i=1,sNx |
207 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
208 |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
209 |
|
tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau |
210 |
ENDDO |
ENDDO |
211 |
ENDDO |
ENDDO |
212 |
ENDDO |
ENDDO |