/[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.27 by heimbach, Fri Sep 17 23:02:01 2004 UTC revision 1.28 by jmc, Tue Sep 21 12:13:44 2004 UTC
# Line 309  C      ----------------|--||------- Line 309  C      ----------------|--||-------
309  C                      |  \/  C                      |  \/
310  C                      |   x T(sNx+1,    0)  C                      |   x T(sNx+1,    0)
311         IF ( southWestCorner ) THEN         IF ( southWestCorner ) THEN
312          DO J=1,OLy          DO j=1,OLy
313           DO I=1,OLx           DO i=1,OLx
314            localTij(1-I, 1-J   )= localTij(1-J  ,1  )            localTij( 1-i , 1-j )=localTij( 1-j , i  )
315           ENDDO           ENDDO
316          ENDDO          ENDDO
317         ENDIF         ENDIF
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22