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

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

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

revision 1.7 by adcroft, Mon Jun 1 20:36:13 1998 UTC revision 1.8 by adcroft, Mon Jun 1 22:27:14 1998 UTC
# Line 46  C     Step forward meridional velocity ( Line 46  C     Step forward meridional velocity (
46  C     Step forward temperature  C     Step forward temperature
47         DO j=jMin,jMax         DO j=jMin,jMax
48          DO i=iMin,iMax          DO i=iMin,iMax
49           gTNm1(i,j,k,bi,bj)=theta(i,j,k,bi,bj)           theta(i,j,k,bi,bj)=theta(i,j,k,bi,bj)
50       &    +deltaTtracer*(ab15*gT(i,j,k,bi,bj)+ab05*gTNm1(i,j,k,bi,bj))       &    +deltaTtracer*(ab15*gT(i,j,k,bi,bj)+ab05*gTNm1(i,j,k,bi,bj))
51             gTNm1(i,j,k,bi,bj)=gT(i,j,k,bi,bj)
52          ENDDO          ENDDO
53         ENDDO         ENDDO
54    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22