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

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

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

revision 1.25 by cnh, Tue Feb 6 04:47:51 2001 UTC revision 1.26 by cnh, Tue Feb 6 05:12:46 2001 UTC
# Line 279  C           i=iMin+1:iMax-1, j=jMin+1:jM Line 279  C           i=iMin+1:iMax-1, j=jMin+1:jM
279  C           will contain valid floating point numbers but  C           will contain valid floating point numbers but
280  C           they are not algorithmically correct. These points  C           they are not algorithmically correct. These points
281  C           are not used.  C           are not used.
282  C     DO j=jMin,jMax        DO j=jMin,jMax-1
283  C      DO i=iMin,iMax         DO i=iMin,iMax-1
284        DO j=1-1,OLy+1  C     DO j=1-2,OLy+2
285         DO i=1-1,OLx+1  C      DO i=1-2,OLx+2
286  #define _recip_VolS1(i,j,k,bi,bj) _recip_hFacC(i,j,k,bi,bj)*recip_drF(k)  #define _recip_VolS1(i,j,k,bi,bj) _recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
287  #define _recip_VolS2(i,j,k,bi,bj) /_rA(i,j,bi,bj)  #define _recip_VolS2(i,j,k,bi,bj) /_rA(i,j,bi,bj)
288          gS(i,j,k,bi,bj)=          gS(i,j,k,bi,bj)=
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22