/[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.2 by molod, Mon Feb 23 20:34:38 2004 UTC
# Line 114  C======================================= Line 114  C=======================================
114    
115        integer i, j        integer i, j
116    
117        do j=1,sNy        do j=jMin,jMax
118         do i=1,sNx         do i=iMin,iMax
119          gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)          gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)
120       .       *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) )       .       *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) )
121         enddo         enddo
# Line 155  C======================================= Line 155  C=======================================
155    
156        integer i, j        integer i, j
157    
158        do j=1,sNy        do j=jMin,jMax
159         do i=1,sNx         do i=iMin,iMax
160          gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)          gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)
161       .       *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) )       .       *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) )
162         enddo         enddo
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22