/[MITgcm]/MITgcm/pkg/shap_filt/shap_filt_uv_s2c.F
ViewVC logotype

Diff of /MITgcm/pkg/shap_filt/shap_filt_uv_s2c.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Mon Mar 4 01:25:02 2002 UTC revision 1.2 by jmc, Tue Feb 15 00:21:12 2005 UTC
# Line 198  C      F <-  [1 - (d_xx+d_yy)^n *deltaT/ Line 198  C      F <-  [1 - (d_xx+d_yy)^n *deltaT/
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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22