/[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.24 by cnh, Sun Feb 4 14:38:45 2001 UTC revision 1.25 by cnh, Tue Feb 6 04:47:51 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        DO j=jMin,jMax  C     DO j=jMin,jMax
283         DO i=iMin,iMax  C      DO i=iMin,iMax
284          DO j=1-1,OLy+1
285           DO i=1-1,OLx+1
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.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22