/[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.4 by m_bates, Thu Jul 11 14:33:23 2013 UTC revision 1.5 by m_bates, Thu Aug 8 22:39:36 2013 UTC
# Line 642  C          Meridional thickness flux at Line 642  C          Meridional thickness flux at
642        ENDDO        ENDDO
643    
644  C     Calculate gradq  C     Calculate gradq
645        IF (GM_K3D_likeGM) THEN        IF (GM_K3D_likeGM .OR. GM_K3D_beta_eq_0) THEN
646  C       To make it similar to GM, we ignore beta  C       Ignore beta in the calculation of grad(q)
647          DO k=1,Nr          DO k=1,Nr
648           DO j=1-Oly+1,sNy+Oly           DO j=1-Oly+1,sNy+Oly
649            DO i=1-Olx+1,sNx+Olx            DO i=1-Olx+1,sNx+Olx
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22