/[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.13 by jmc, Thu Aug 16 02:20:41 2007 UTC revision 1.14 by jmc, Wed Oct 22 00:28:47 2008 UTC
# Line 114  C--        Calculate gradient in X direc Line 114  C--        Calculate gradient in X direc
114             IF ( .NOT.Shap_alwaysExchTr             IF ( .NOT.Shap_alwaysExchTr
115       &          .AND. useCubedSphereExchange ) THEN       &          .AND. useCubedSphereExchange ) THEN
116  C          to compute d/dx(tmpFld), fill corners with appropriate values:  C          to compute d/dx(tmpFld), fill corners with appropriate values:
117               CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,               CALL FILL_CS_CORNER_TR_RL( 1, .FALSE.,
118       &                                 tmpFld(1-Olx,1-Oly,k,bi,bj),       &                                 tmpFld(1-Olx,1-Oly,k,bi,bj),
119       &                                 bi,bj, myThid )       &                                 bi,bj, myThid )
120             ENDIF             ENDIF
# Line 145  C--        Calculate gradient in Y direc Line 145  C--        Calculate gradient in Y direc
145             IF ( .NOT.Shap_alwaysExchTr             IF ( .NOT.Shap_alwaysExchTr
146       &          .AND. useCubedSphereExchange ) THEN       &          .AND. useCubedSphereExchange ) THEN
147  C          to compute d/dy(tmpFld), fill corners with appropriate values:  C          to compute d/dy(tmpFld), fill corners with appropriate values:
148               CALL FILL_CS_CORNER_TR_RL(.FALSE., .FALSE.,               CALL FILL_CS_CORNER_TR_RL( 2, .FALSE.,
149       &                                 tmpFld(1-Olx,1-Oly,k,bi,bj),       &                                 tmpFld(1-Olx,1-Oly,k,bi,bj),
150       &                                 bi,bj, myThid )       &                                 bi,bj, myThid )
151             ENDIF             ENDIF
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22