/[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.55 by jmc, Thu Feb 7 23:59:02 2008 UTC revision 1.56 by jmc, Fri Feb 8 15:04:28 2008 UTC
# Line 557  CADJ &     comlev1_bibj_k_gad_pass, key= Line 557  CADJ &     comlev1_bibj_k_gad_pass, key=
557          ENDIF          ENDIF
558    
559  C-     Internal exchange for next calculations in X  C-     Internal exchange for next calculations in X
560         IF ( overlapOnly .AND. ipass.EQ.1 ) THEN          IF ( overlapOnly .AND. ipass.EQ.1 ) THEN
561           CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,           CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,
562       &                              localTij, bi,bj, myThid )       &                              localTij, bi,bj, myThid )
563         ENDIF          ENDIF
564    
565  C-     Advective flux in Y : done  C-     Advective flux in Y : done
566         ENDIF         ENDIF
Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56
  ViewVC Help
Powered by ViewVC 1.1.22