/[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.6 by m_bates, Tue May 20 11:42:28 2014 UTC revision 1.7 by dfer, Mon Nov 24 10:23:50 2014 UTC
# Line 233  C         and the first M baroclinic mod Line 233  C         and the first M baroclinic mod
233         ENDDO         ENDDO
234        ENDDO        ENDDO
235    
       DO k=1,Nr  
236         DO j=1-Oly,sNy+Oly         DO j=1-Oly,sNy+Oly
237          DO i=1-Olx,sNx+Olx          DO i=1-Olx,sNx+Olx
238           IF (kLow(i,j).GT.2 .AND. val(i,j).NE.zeroRL) THEN           IF (kLow(i,j).GT.2 .AND. val(i,j).NE.zeroRL) THEN
# Line 243  C         and the first M baroclinic mod Line 242  C         and the first M baroclinic mod
242           ENDIF           ENDIF
243          ENDDO          ENDDO
244         ENDDO         ENDDO
       ENDDO  
245    
246  # else        # else      
247        DO k=1,Nr        DO k=1,Nr
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22