/[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.57 by jmc, Fri Feb 8 20:03:36 2008 UTC revision 1.58 by jmc, Wed Oct 22 00:28:47 2008 UTC
# Line 362  C-     Internal exchange for calculation Line 362  C-     Internal exchange for calculation
362  #else  #else
363          IF ( overlapOnly ) THEN          IF ( overlapOnly ) THEN
364  #endif  #endif
365           CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,           CALL FILL_CS_CORNER_TR_RL( 1, .FALSE.,
366       &                              localTij, bi,bj, myThid )       &                              localTij, bi,bj, myThid )
367          ENDIF          ENDIF
368    
# Line 402  CADJ &     comlev1_bibj_k_gad_pass, key= Line 402  CADJ &     comlev1_bibj_k_gad_pass, key=
402    
403  C-     Internal exchange for next calculations in Y  C-     Internal exchange for next calculations in Y
404          IF ( overlapOnly .AND. ipass.EQ.1 ) THEN          IF ( overlapOnly .AND. ipass.EQ.1 ) THEN
405           CALL FILL_CS_CORNER_TR_RL( .FALSE., .FALSE.,           CALL FILL_CS_CORNER_TR_RL( 2, .FALSE.,
406       &                              localTij, bi,bj, myThid )       &                              localTij, bi,bj, myThid )
407          ENDIF          ENDIF
408    
# Line 525  C-     Internal exchange for calculation Line 525  C-     Internal exchange for calculation
525  #else  #else
526          IF ( overlapOnly ) THEN          IF ( overlapOnly ) THEN
527  #endif  #endif
528           CALL FILL_CS_CORNER_TR_RL( .FALSE., .FALSE.,           CALL FILL_CS_CORNER_TR_RL( 2, .FALSE.,
529       &                              localTij, bi,bj, myThid )       &                              localTij, bi,bj, myThid )
530          ENDIF          ENDIF
531    
# Line 572  CADJ &     comlev1_bibj_k_gad_pass, key= Line 572  CADJ &     comlev1_bibj_k_gad_pass, key=
572    
573  C-     Internal exchange for next calculations in X  C-     Internal exchange for next calculations in X
574          IF ( overlapOnly .AND. ipass.EQ.1 ) THEN          IF ( overlapOnly .AND. ipass.EQ.1 ) THEN
575           CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,           CALL FILL_CS_CORNER_TR_RL( 1, .FALSE.,
576       &                              localTij, bi,bj, myThid )       &                              localTij, bi,bj, myThid )
577          ENDIF          ENDIF
578    
Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58
  ViewVC Help
Powered by ViewVC 1.1.22