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

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

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

revision 1.2 by heimbach, Mon Nov 13 16:35:28 2000 UTC revision 1.3 by heimbach, Mon Jan 29 20:07:39 2001 UTC
# Line 83  C-      Off-diagonal components of verti Line 83  C-      Off-diagonal components of verti
83       &      - _rA(i,j,bi,bj)       &      - _rA(i,j,bi,bj)
84       &      *(GM_background_K       &      *(GM_background_K
85  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
86       &      +VisbeckK(i,j,myThid)       &      +VisbeckK(i,j,bi,bj)
87  #endif  #endif
88       &      )*( Kwx(i,j,k,myThid)*dTdx  +Kwy(i,j,k,myThid)*dTdy )       &      )*( Kwx(i,j,k,bi,bj)*dTdx  +Kwy(i,j,k,bi,bj)*dTdy )
89    
90         ENDDO         ENDDO
91        ENDDO        ENDDO
# Line 99  c Line 99  c
99  c      DO j=jMin,jMax  c      DO j=jMin,jMax
100  c       DO i=iMin,iMax  c       DO i=iMin,iMax
101  c        df(i,j) = df(i,j) - _rA(i,j,bi,bj)  c        df(i,j) = df(i,j) - _rA(i,j,bi,bj)
102  c    &    *maskUp(i,j)*VisbeckK(i,j,myThid)*Kwz(i,j,k,myThid)  c    &    *maskUp(i,j)*VisbeckK(i,j,bi,bj)*Kwz(i,j,k,bi,bj)
103  c    &    *recip_drC(k)*rkfac  c    &    *recip_drC(k)*rkfac
104  c    &    *(Tracer(i,j,k-1,bi,bj)-Tracer(i,j,k,bi,bj))  c    &    *(Tracer(i,j,k-1,bi,bj)-Tracer(i,j,k,bi,bj))
105  c       ENDDO  c       ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22