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

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

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

revision 1.17 by m_bates, Sun May 18 02:38:55 2014 UTC revision 1.18 by m_bates, Tue May 20 11:42:28 2014 UTC
# Line 235  C     ================================== Line 235  C     ==================================
235         ENDDO         ENDDO
236        ENDDO        ENDDO
237    
238  C     Dummy values for the edges  C     Dummy values for the edges. This does not affect the results
239  C     This avoids weirdness in gmredi_calc_eigs  C     but avoids problems when solving for the eigenvalues.
240        i=1-Olx        i=1-Olx
241        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly
242         kLow_U(i,j) = kLow_C(i,j)         kLow_U(i,j) = 0
243        ENDDO        ENDDO
244        j=1-Oly        j=1-Oly
245        DO i=1-Olx,sNx+Olx        DO i=1-Olx,sNx+Olx
246         kLow_V(i,j) = kLow_C(i,j)         kLow_V(i,j) = 0
247        ENDDO        ENDDO
248    
249        g_reciprho_sq = (gravity*recip_rhoConst)**2        g_reciprho_sq = (gravity*recip_rhoConst)**2
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22