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

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

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

revision 1.1 by adcroft, Mon Jun 1 20:36:13 1998 UTC revision 1.2 by adcroft, Mon Jun 1 22:27:14 1998 UTC
# Line 58  C     Step forward meridional velocity Line 58  C     Step forward meridional velocity
58         ENDDO         ENDDO
59        ENDDO        ENDDO
60    
 C     Step forward temperature velocity  
       DO j=jMin,jMax  
        DO i=iMin,iMax  
         theta(i,j,k,bi,bj)=gTNm1(i,j,k,bi,bj)  
         gTNm1(i,j,k,bi,bj)=gT(i,j,k,bi,bj)  
        ENDDO  
       ENDDO  
   
61        RETURN        RETURN
62        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22