/[MITgcm]/MITgcm/model/src/calc_r_star.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_r_star.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by jmc, Mon Sep 20 15:54:36 2010 UTC revision 1.19 by gforget, Fri Jan 14 01:28:31 2011 UTC
# Line 77  C---+----1----+----2----+----3----+----4 Line 77  C---+----1----+----2----+----3----+----4
77    
78        DO bj=myByLo(myThid), myByHi(myThid)        DO bj=myByLo(myThid), myByHi(myThid)
79         DO bi=myBxLo(myThid), myBxHi(myThid)         DO bi=myBxLo(myThid), myBxHi(myThid)
80          
81    C--   before updating rStarFacC/S/W save current fields
82             DO j=1-Oly,sNy+Oly
83               DO i=1-Olx,sNx+Olx
84                 rStarFacNm1C(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
85                 rStarFacNm1S(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
86                 rStarFacNm1W(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
87               ENDDO
88             ENDDO
89          
90  C-    1rst bi,bj loop :  C-    1rst bi,bj loop :
91    
92  C-- copy rStarFacX -> rStarExpX  C-- copy rStarFacX -> rStarExpX
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22