/[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.5 by adcroft, Tue Jun 16 17:07:11 1998 UTC
# Line 26  C     == Routine Arguments == Line 26  C     == Routine Arguments ==
26        INTEGER myThid        INTEGER myThid
27  C     == Local variables ==  C     == Local variables ==
28        INTEGER i,j        INTEGER i,j
29        _RL ab15,ab05,hxFac,hyFac,rRhoNil        _RL hxFac,hyFac,rRhoNil
   
 C     Adams-Bashforth timestepping weights  
       ab15=1.5+abeps  
       ab05=-0.5-abeps  
30    
31  C     On/off scaling paramters  C     On/off scaling paramters
32        hxFac = pfFacMom        hxFac = pfFacMom
# Line 58  C     Step forward meridional velocity Line 54  C     Step forward meridional velocity
54         ENDDO         ENDDO
55        ENDDO        ENDDO
56    
57    C     Rotate theta/gT/gTnm1
58          DO j=jMin,jMax
59           DO i=iMin,iMax
60            theta(i,j,k,bi,bj)=gTNm1(i,j,k,bi,bj)
61            gTNm1(i,j,k,bi,bj)=gT(i,j,k,bi,bj)
62           ENDDO
63          ENDDO
64    
65    C     Rotate salt/gS/gSnm1
66          DO j=jMin,jMax
67           DO i=iMin,iMax
68            salt(i,j,k,bi,bj)=gSNm1(i,j,k,bi,bj)
69            gSNm1(i,j,k,bi,bj)=gS(i,j,k,bi,bj)
70           ENDDO
71          ENDDO
72    
73        RETURN        RETURN
74        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22