/[MITgcm]/MITgcm/pkg/fizhi/fizhi_tendency_apply.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_tendency_apply.F

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

revision 1.1 by molod, Thu Jan 29 14:22:24 2004 UTC revision 1.3 by edhill, Wed May 5 00:39:21 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4        subroutine fizhi_tendency_apply_u(iMin, iMax, jMin, jMax,        subroutine fizhi_tendency_apply_u(iMin, iMax, jMin, jMax,
5       .    bi,bj,kLev,myTime,myThid)       .    bi,bj,kLev,myTime,myThid)
6  C=======================================================================  C=======================================================================
# Line 114  C======================================= Line 117  C=======================================
117    
118        integer i, j        integer i, j
119    
120        do j=1,sNy        do j=jMin,jMax
121         do i=1,sNx         do i=iMin,iMax
122          gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)          gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)
123       .       *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) )       .       *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) )
124         enddo         enddo
# Line 155  C======================================= Line 158  C=======================================
158    
159        integer i, j        integer i, j
160    
161        do j=1,sNy        do j=jMin,jMax
162         do i=1,sNx         do i=iMin,iMax
163          gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)          gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)
164       .       *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) )       .       *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) )
165         enddo         enddo
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22