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

Diff of /MITgcm/pkg/shap_filt/shap_filt_tracer_s1.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 110  C      F <-  [1 - d_xx^n *deltaT/tau].F Line 110  C      F <-  [1 - d_xx^n *deltaT/tau].F
110             DO I=1,sNx             DO I=1,sNx
111              tmpScal=field(i,j,k,bi,bj)              tmpScal=field(i,j,k,bi,bj)
112              field(i,j,k,bi,bj)=field(i,j,k,bi,bj)              field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
113       &          -0.5*tmpFld(i,j,k,bi,bj)*deltaTtracer/Shap_Trtau       &          -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
114              tmpFld(i,j,k,bi,bj)=tmpScal              tmpFld(i,j,k,bi,bj)=tmpScal
115             ENDDO             ENDDO
116            ENDDO            ENDDO
# Line 162  C      F <-  [1 - d_yy^n *deltaT/tau].F Line 162  C      F <-  [1 - d_yy^n *deltaT/tau].F
162            DO J=1,sNy            DO J=1,sNy
163             DO I=1,sNx             DO I=1,sNx
164              field(i,j,k,bi,bj)=field(i,j,k,bi,bj)              field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
165       &          -0.5*tmpFld(i,j,k,bi,bj)*deltaTtracer/Shap_Trtau       &          -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
166             ENDDO             ENDDO
167            ENDDO            ENDDO
168           ENDDO           ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22