/[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.5 by heimbach, Thu Nov 14 22:43:49 2002 UTC revision 1.6 by heimbach, Fri Nov 15 02:57:47 2002 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)
45       &                    *GM_adjointRescale*GM_adjointRescale  cph     &                    *GM_adjointRescale*GM_adjointRescale
46         ENDDO         ENDDO
47        ENDDO        ENDDO
48    
49        DO j=jMin,jMax        DO j=jMin,jMax
50         DO i=iMin,iMax         DO i=iMin,iMax
51          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)
52       &                    *GM_adjointRescale*GM_adjointRescale  cph     &                    *GM_adjointRescale*GM_adjointRescale
53         ENDDO         ENDDO
54        ENDDO        ENDDO
55    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22