/[MITgcm]/MITgcm/model/src/calc_gw.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_gw.F

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

revision 1.7 by jmc, Tue Mar 6 17:10:29 2001 UTC revision 1.8 by jmc, Mon Mar 12 20:51:03 2001 UTC
# Line 65  C     Adams-Bashforth timestepping weigh Line 65  C     Adams-Bashforth timestepping weigh
65          DO K=1,Nr          DO K=1,Nr
66           DO j=1-OLy,sNy+OLy           DO j=1-OLy,sNy+OLy
67            DO i=1-OLx,sNx+OLx            DO i=1-OLx,sNx+OLx
68               gWNM1(i,j,k,bi,bj) = gW(i,j,k,bi,bj)
69             gW(i,j,k,bi,bj) = 0.             gW(i,j,k,bi,bj) = 0.
70            ENDDO            ENDDO
71           ENDDO           ENDDO
# Line 164  caja           and an hFacUS (above V po Line 165  caja           and an hFacUS (above V po
165            ENDDO            ENDDO
166           ENDDO           ENDDO
167          ENDDO          ENDDO
        ENDDO  
       ENDDO  
       DO bj=myByLo(myThid),myByHi(myThid)  
        DO bi=myBxLo(myThid),myBxHi(myThid)  
         DO K=1,Nr  
          DO j=J0,Jn  
           DO i=I0,In  
            gWNM1(i,j,k,bi,bj) = gW(i,j,k,bi,bj)  
           ENDDO  
          ENDDO  
         ENDDO  
168         ENDDO         ENDDO
169        ENDDO        ENDDO
170    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22