Parent Directory
|
Revision Log
|
Revision Graph
|
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)) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |