/[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.1 by adcroft, Mon Jun 1 20:36:13 1998 UTC revision 1.4 by adcroft, Tue Jun 16 15:20:08 1998 UTC
# Line 14  C     \================================= Line 14  C     \=================================
14  ! Common  ! Common
15  #include "SIZE.h"  #include "SIZE.h"
16  #include "DYNVARS.h"  #include "DYNVARS.h"
17    #include "EEPARAMS.h"
18  #include "PARAMS.h"  #include "PARAMS.h"
19  #include "GRID.h"  #include "GRID.h"
 #include "EEPARAMS.h"  
20  #include "CG2D.h"  #include "CG2D.h"
21  C     == Routine Arguments ==  C     == Routine Arguments ==
22        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
# Line 58  C     Step forward meridional velocity Line 58  C     Step forward meridional velocity
58         ENDDO         ENDDO
59        ENDDO        ENDDO
60    
61  C     Step forward temperature velocity  C     Rotate theta/gT/gTnm1
62        DO j=jMin,jMax        DO j=jMin,jMax
63         DO i=iMin,iMax         DO i=iMin,iMax
64          theta(i,j,k,bi,bj)=gTNm1(i,j,k,bi,bj)          theta(i,j,k,bi,bj)=gTNm1(i,j,k,bi,bj)
# Line 66  C     Step forward temperature velocity Line 66  C     Step forward temperature velocity
66         ENDDO         ENDDO
67        ENDDO        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.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22