/[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.3 by cnh, Tue Jun 9 16:48:02 1998 UTC revision 1.4 by adcroft, Tue Jun 16 15:20:08 1998 UTC
# Line 58  C     Step forward meridional velocity Line 58  C     Step forward meridional velocity
58         ENDDO         ENDDO
59        ENDDO        ENDDO
60    
61    C     Rotate theta/gT/gTnm1
62          DO j=jMin,jMax
63           DO i=iMin,iMax
64            theta(i,j,k,bi,bj)=gTNm1(i,j,k,bi,bj)
65            gTNm1(i,j,k,bi,bj)=gT(i,j,k,bi,bj)
66           ENDDO
67          ENDDO
68    
69    C     Rotate salt/gS/gSnm1
70          DO j=jMin,jMax
71           DO i=iMin,iMax
72            salt(i,j,k,bi,bj)=gSNm1(i,j,k,bi,bj)
73            gSNm1(i,j,k,bi,bj)=gS(i,j,k,bi,bj)
74           ENDDO
75          ENDDO
76    
77        RETURN        RETURN
78        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22