/[MITgcm]/MITgcm/pkg/mom_common/mom_calc_visc.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_calc_visc.F

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

revision 1.35 by jmc, Tue Apr 22 22:50:11 2008 UTC revision 1.36 by jmc, Wed Oct 22 00:28:47 2008 UTC
# Line 284  C-       gradient in x direction: Line 284  C-       gradient in x direction:
284  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC
285           IF (useCubedSphereExchange) THEN           IF (useCubedSphereExchange) THEN
286  C        to compute d/dx(hDiv), fill corners with appropriate values:  C        to compute d/dx(hDiv), fill corners with appropriate values:
287             CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,             CALL FILL_CS_CORNER_TR_RL( 1, .FALSE.,
288       &                                hDiv, bi,bj, myThid )       &                                hDiv, bi,bj, myThid )
289           ENDIF           ENDIF
290  cph-exch2#endif  cph-exch2#endif
# Line 298  C-       gradient in y direction: Line 298  C-       gradient in y direction:
298  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC
299           IF (useCubedSphereExchange) THEN           IF (useCubedSphereExchange) THEN
300  C        to compute d/dy(hDiv), fill corners with appropriate values:  C        to compute d/dy(hDiv), fill corners with appropriate values:
301             CALL FILL_CS_CORNER_TR_RL(.FALSE., .FALSE.,             CALL FILL_CS_CORNER_TR_RL( 2, .FALSE.,
302       &                                hDiv, bi,bj, myThid )       &                                hDiv, bi,bj, myThid )
303           ENDIF           ENDIF
304  cph-exch2#endif  cph-exch2#endif
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22