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

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

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

revision 1.6 by jmc, Sat Dec 4 00:19:12 2004 UTC revision 1.7 by jmc, Tue Feb 15 00:21:12 2005 UTC
# Line 178  C      F <-  [1 - (d_xx+d_yy)^n *deltaT/ Line 178  C      F <-  [1 - (d_xx+d_yy)^n *deltaT/
178            DO J=1,sNy            DO J=1,sNy
179             DO I=1,sNx             DO I=1,sNx
180              field(i,j,k,bi,bj)=field(i,j,k,bi,bj)              field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
181       &       -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau       &            -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
182                tmpFld(i,j,k,bi,bj)= -tmpFld(i,j,k,bi,bj)/Shap_Trtau
183             ENDDO             ENDDO
184            ENDDO            ENDDO
185           ENDDO           ENDDO
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22