/[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.5 by jmc, Sat Jun 26 01:15:30 2004 UTC revision 1.6 by jmc, Sat Dec 4 00:19:12 2004 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)*deltaTtracer/Shap_Trtau       &       -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
182             ENDDO             ENDDO
183            ENDDO            ENDDO
184           ENDDO           ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22