/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_advection.F

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

revision 1.49 by heimbach, Fri Jul 27 22:18:57 2007 UTC revision 1.50 by jmc, Thu Aug 16 02:16:37 2007 UTC
# Line 355  C-     Internal exchange for calculation Line 355  C-     Internal exchange for calculation
355          IF ( useCubedSphereExchange .AND.          IF ( useCubedSphereExchange .AND.
356       &       ( overlapOnly .OR. ipass.EQ.1 ) ) THEN       &       ( overlapOnly .OR. ipass.EQ.1 ) ) THEN
357  #endif  #endif
358           CALL FILL_CS_CORNER_TR_RL( .TRUE., localTij, bi,bj, myThid )           CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,
359         &                              localTij, bi,bj, myThid )
360          ENDIF          ENDIF
361  cph-exch2#endif  cph-exch2#endif
362    
# Line 399  C-     Advective flux in X : done Line 400  C-     Advective flux in X : done
400  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC
401  C-     Internal exchange for next calculations in Y  C-     Internal exchange for next calculations in Y
402         IF ( overlapOnly .AND. ipass.EQ.1 ) THEN         IF ( overlapOnly .AND. ipass.EQ.1 ) THEN
403           CALL FILL_CS_CORNER_TR_RL(.FALSE., localTij, bi,bj, myThid )           CALL FILL_CS_CORNER_TR_RL(.FALSE., .FALSE.,
404         &                              localTij, bi,bj, myThid )
405         ENDIF         ENDIF
406  cph-exch2#endif  cph-exch2#endif
407    
# Line 521  C-     Internal exchange for calculation Line 523  C-     Internal exchange for calculation
523          IF ( useCubedSphereExchange .AND.          IF ( useCubedSphereExchange .AND.
524       &       ( overlapOnly .OR. ipass.EQ.1 ) ) THEN       &       ( overlapOnly .OR. ipass.EQ.1 ) ) THEN
525  #endif  #endif
526           CALL FILL_CS_CORNER_TR_RL(.FALSE., localTij, bi,bj, myThid )           CALL FILL_CS_CORNER_TR_RL(.FALSE., .FALSE.,
527         &                              localTij, bi,bj, myThid )
528          ENDIF          ENDIF
529  cph-exch2#endif  cph-exch2#endif
530    
# Line 572  C-     Advective flux in Y : done Line 575  C-     Advective flux in Y : done
575  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC
576  C-     Internal exchange for next calculations in X  C-     Internal exchange for next calculations in X
577         IF ( overlapOnly .AND. ipass.EQ.1 ) THEN         IF ( overlapOnly .AND. ipass.EQ.1 ) THEN
578           CALL FILL_CS_CORNER_TR_RL( .TRUE., localTij, bi,bj, myThid )           CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,
579         &                              localTij, bi,bj, myThid )
580         ENDIF         ENDIF
581  cph-exch2#endif  cph-exch2#endif
582    
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22