/[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.12 by adcroft, Wed Jun 10 16:05:39 1998 UTC revision 1.13 by adcroft, Tue Jun 16 15:20:08 1998 UTC
# Line 56  C     Step forward temperature Line 56  C     Step forward temperature
56        IF (tempStepping) THEN        IF (tempStepping) THEN
57         DO j=jMin,jMax         DO j=jMin,jMax
58          DO i=iMin,iMax          DO i=iMin,iMax
59           theta(i,j,k,bi,bj)=theta(i,j,k,bi,bj)           gTNm1(i,j,k,bi,bj)=theta(i,j,k,bi,bj)
60       &    +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))
          gTNm1(i,j,k,bi,bj)=gT(i,j,k,bi,bj)  
61          ENDDO          ENDDO
62         ENDDO         ENDDO
63        ENDIF        ENDIF
# Line 67  C     Step forward salt Line 66  C     Step forward salt
66        IF (saltStepping) THEN        IF (saltStepping) THEN
67         DO j=jMin,jMax         DO j=jMin,jMax
68          DO i=iMin,iMax          DO i=iMin,iMax
69           salt(i,j,k,bi,bj)=salt(i,j,k,bi,bj)           gSNm1(i,j,k,bi,bj)=salt(i,j,k,bi,bj)
70       &    +deltaTtracer*(ab15*gS(i,j,k,bi,bj)+ab05*gSNm1(i,j,k,bi,bj))       &    +deltaTtracer*(ab15*gS(i,j,k,bi,bj)+ab05*gSNm1(i,j,k,bi,bj))
          gSNm1(i,j,k,bi,bj)=gS(i,j,k,bi,bj)  
71          ENDDO          ENDDO
72         ENDDO         ENDDO
73        ENDIF        ENDIF
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22