/[MITgcm]/MITgcm/pkg/thsice/thsice_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_advection.F

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

revision 1.7 by jmc, Thu Feb 7 23:59:45 2008 UTC revision 1.8 by jmc, Wed Oct 22 00:28:47 2008 UTC
# Line 294  C-     Advective flux in X Line 294  C-     Advective flux in X
294  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
295  C-     Internal exchange for calculations in X  C-     Internal exchange for calculations in X
296           IF ( overlapOnly ) THEN           IF ( overlapOnly ) THEN
297            CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,            CALL FILL_CS_CORNER_TR_RL( 1, .FALSE.,
298       &                               iceFld, bi,bj, myThid )       &                               iceFld, bi,bj, myThid )
299            IF ( .NOT.useGridVolume )            IF ( .NOT.useGridVolume )
300       &    CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,       &    CALL FILL_CS_CORNER_TR_RL( 1, .FALSE.,
301       &                               iceVol, bi,bj, myThid )       &                               iceVol, bi,bj, myThid )
302           ENDIF           ENDIF
303  #endif  #endif
# Line 351  C-     Compute CFL number Line 351  C-     Compute CFL number
351  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
352  C--   Internal exchange for next calculations in Y  C--   Internal exchange for next calculations in Y
353           IF ( overlapOnly .AND. ipass.EQ.1 ) THEN           IF ( overlapOnly .AND. ipass.EQ.1 ) THEN
354            CALL FILL_CS_CORNER_TR_RL( .FALSE., .FALSE.,            CALL FILL_CS_CORNER_TR_RL( 2, .FALSE.,
355       &                               iceFld, bi,bj, myThid )       &                               iceFld, bi,bj, myThid )
356            IF ( .NOT.useGridVolume )            IF ( .NOT.useGridVolume )
357       &    CALL FILL_CS_CORNER_TR_RL( .FALSE., .FALSE.,       &    CALL FILL_CS_CORNER_TR_RL( 2, .FALSE.,
358       &                               iceVol, bi,bj, myThid )       &                               iceVol, bi,bj, myThid )
359           ENDIF           ENDIF
360  #endif  #endif
# Line 508  C-     Advective flux in Y Line 508  C-     Advective flux in Y
508  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
509  C-     Internal exchange for calculations in Y  C-     Internal exchange for calculations in Y
510           IF ( overlapOnly ) THEN           IF ( overlapOnly ) THEN
511            CALL FILL_CS_CORNER_TR_RL( .FALSE., .FALSE.,            CALL FILL_CS_CORNER_TR_RL( 2, .FALSE.,
512       &                               iceFld, bi,bj, myThid )       &                               iceFld, bi,bj, myThid )
513            IF ( .NOT.useGridVolume )            IF ( .NOT.useGridVolume )
514       &    CALL FILL_CS_CORNER_TR_RL( .FALSE., .FALSE.,       &    CALL FILL_CS_CORNER_TR_RL( 2, .FALSE.,
515       &                               iceVol, bi,bj, myThid )       &                               iceVol, bi,bj, myThid )
516           ENDIF           ENDIF
517  #endif  #endif
# Line 564  C-     Compute CFL number Line 564  C-     Compute CFL number
564    
565  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
566           IF ( overlapOnly .AND. ipass.EQ.1 ) THEN           IF ( overlapOnly .AND. ipass.EQ.1 ) THEN
567            CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,            CALL FILL_CS_CORNER_TR_RL( 1, .FALSE.,
568       &                               iceFld, bi,bj, myThid )       &                               iceFld, bi,bj, myThid )
569            IF ( .NOT.useGridVolume )            IF ( .NOT.useGridVolume )
570       &    CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,       &    CALL FILL_CS_CORNER_TR_RL( 1, .FALSE.,
571       &                               iceVol, bi,bj, myThid )       &                               iceVol, bi,bj, myThid )
572           ENDIF           ENDIF
573  #endif  #endif
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22