/[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.12 by heimbach, Mon Sep 11 23:00:13 2000 UTC revision 1.13 by adcroft, Fri Feb 2 21:04:48 2001 UTC
# Line 79  C     Step forward meridional velocity Line 79  C     Step forward meridional velocity
79         ENDDO         ENDDO
80        ENDDO        ENDDO
81    
 C     Rotate theta/gT/gTnm1  
       IF ( tempStepping ) THEN  
        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  
       ENDIF  
   
 C     Rotate salt/gS/gSnm1  
       IF ( saltStepping ) THEN  
        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  
       ENDIF  
   
82        RETURN        RETURN
83        END        END
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22