/[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.9 by cnh, Thu Aug 20 20:05:00 1998 UTC revision 1.10 by cnh, Fri Nov 6 22:44:45 1998 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    
3  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.h"
4    
5  C     /==========================================================\  C     /==========================================================\
6  C     | S/R CORRECTION_STEP                                      |  C     | S/R CORRECTION_STEP                                      |
# Line 60  C     Step forward meridional velocity Line 60  C     Step forward meridional velocity
60        ENDDO        ENDDO
61    
62  C     Rotate theta/gT/gTnm1  C     Rotate theta/gT/gTnm1
63        DO j=jMin,jMax        IF ( tempStepping ) THEN
64         DO i=iMin,iMax         DO j=jMin,jMax
65          theta(i,j,k,bi,bj)=gTNm1(i,j,k,bi,bj)          DO i=iMin,iMax
66          gTNm1(i,j,k,bi,bj)=gT(i,j,k,bi,bj)           theta(i,j,k,bi,bj)=gTNm1(i,j,k,bi,bj)
67             gTNm1(i,j,k,bi,bj)=gT(i,j,k,bi,bj)
68            ENDDO
69         ENDDO         ENDDO
70        ENDDO        ENDIF
71    
72  C     Rotate salt/gS/gSnm1  C     Rotate salt/gS/gSnm1
73        DO j=jMin,jMax        IF ( saltStepping ) THEN
74         DO i=iMin,iMax         DO j=jMin,jMax
75          salt(i,j,k,bi,bj)=gSNm1(i,j,k,bi,bj)          DO i=iMin,iMax
76          gSNm1(i,j,k,bi,bj)=gS(i,j,k,bi,bj)           salt(i,j,k,bi,bj)=gSNm1(i,j,k,bi,bj)
77             gSNm1(i,j,k,bi,bj)=gS(i,j,k,bi,bj)
78            ENDDO
79         ENDDO         ENDDO
80        ENDDO        ENDIF
81    
82        RETURN        RETURN
83        END        END
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22