--- MITgcm/model/src/correction_step.F	1998/06/09 16:48:02	1.3
+++ MITgcm/model/src/correction_step.F	1998/06/16 15:20:08	1.4
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/correction_step.F,v 1.3 1998/06/09 16:48:02 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/correction_step.F,v 1.4 1998/06/16 15:20:08 adcroft Exp $
 
 #include "CPP_EEOPTIONS.h"
 
@@ -58,5 +58,21 @@
        ENDDO
       ENDDO
 
+C     Rotate theta/gT/gTnm1
+      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
+
+C     Rotate salt/gS/gSnm1
+      DO j=jMin,jMax
+       DO i=iMin,iMax
+        salt(i,j,k,bi,bj)=gSNm1(i,j,k,bi,bj)
+        gSNm1(i,j,k,bi,bj)=gS(i,j,k,bi,bj)
+       ENDDO
+      ENDDO
+
       RETURN
       END