/[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.5 by m_bates, Sun May 18 02:49:52 2014 UTC revision 1.6 by m_bates, Tue May 20 11:42:28 2014 UTC
# Line 203  C         and the first M baroclinic mod Line 203  C         and the first M baroclinic mod
203            DO k=1,kLow(i,j)            DO k=1,kLow(i,j)
204             eigval(0) = MAX(eigval(0),eigR(k))             eigval(0) = MAX(eigval(0),eigR(k))
205            ENDDO            ENDDO
206            DO m=1,MIN(nmodes,klow(i,j))            DO m=1,MIN(nmodes,klow(i,j)-1)
207             DO k=1,kLow(i,j)             DO k=1,kLow(i,j)
208              IF (eigR(k).LT.eigval(m-1)) THEN              IF (eigR(k).LT.eigval(m-1)) THEN
209                eigval(m) = MAX(eigval(m),eigR(k))                eigval(m) = MAX(eigval(m),eigR(k))
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22