/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_implicit_r.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_implicit_r.F

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

revision 1.11 by jmc, Sat Oct 22 20:17:44 2005 UTC revision 1.12 by heimbach, Wed Jun 7 01:55:14 2006 UTC
# Line 133  C-     1rst lower diagonal : Line 133  C-     1rst lower diagonal :
133          DO j=jMin,jMax          DO j=jMin,jMax
134           DO i=iMin,iMax           DO i=iMin,iMax
135             b5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k-1,bi,bj)             b5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k-1,bi,bj)
136       &                  *recip_hFacC(i,j,k,bi,bj)*recip_drF(k)       &                  *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
137       &                  *kappaRX(i,j, k )*recip_drC( k )       &                  *kappaRX(i,j, k )*recip_drC( k )
138           ENDDO           ENDDO
139          ENDDO          ENDDO
# Line 143  C-     1rst upper diagonal : Line 143  C-     1rst upper diagonal :
143          DO j=jMin,jMax          DO j=jMin,jMax
144           DO i=iMin,iMax           DO i=iMin,iMax
145             d5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k+1,bi,bj)             d5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k+1,bi,bj)
146       &                 *recip_hFacC(i,j,k,bi,bj)*recip_drF(k)       &                 *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
147       &                 *KappaRX(i,j,k+1)*recip_drC(k+1)       &                 *KappaRX(i,j,k+1)*recip_drC(k+1)
148           ENDDO           ENDDO
149          ENDDO          ENDDO
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22