/[MITgcm]/MITgcm/pkg/gmredi/gmredi_calc_eigs.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_calc_eigs.F

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

revision 1.3 by m_bates, Thu Jul 11 14:33:23 2013 UTC revision 1.4 by jmc, Thu Aug 22 23:01:47 2013 UTC
# Line 260  C         and the first M baroclinic mod Line 260  C         and the first M baroclinic mod
260         ENDDO         ENDDO
261        ENDDO        ENDDO
262    
263  C     integrate N using something like Simpson's rule (but not quite)  C     integrate N using something like Simpson s rule (but not quite)
264  C     drC*( (N(k+1)+N(k+2))/2 + (N(k)+N(k+1))/2 )/2  C     drC*( (N(k+1)+N(k+2))/2 + (N(k)+N(k+1))/2 )/2
265  C     when k=Nr, say that N(k+2)=0 and N(k+1)=0  C     when k=Nr, say that N(k+2)=0 and N(k+1)=0
266        k=Nr        k=Nr
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22