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

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

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

revision 1.6 by heimbach, Fri Nov 15 02:57:47 2002 UTC revision 1.7 by heimbach, Fri Jan 10 00:48:39 2003 UTC
# Line 42  C     I, J   - Loop counters Line 42  C     I, J   - Loop counters
42        DO j=jMin,jMax        DO j=jMin,jMax
43         DO i=iMin,iMax         DO i=iMin,iMax
44          KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj)          KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj)
 cph     &                    *GM_adjointRescale*GM_adjointRescale  
45         ENDDO         ENDDO
46        ENDDO        ENDDO
47    
48        DO j=jMin,jMax        DO j=jMin,jMax
49         DO i=iMin,iMax         DO i=iMin,iMax
50          KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj)          KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj)
 cph     &                    *GM_adjointRescale*GM_adjointRescale  
51         ENDDO         ENDDO
52        ENDDO        ENDDO
53    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22