--- MITgcm/pkg/gmredi/gmredi_calc_diff.F 2002/11/15 02:57:47 1.6 +++ MITgcm/pkg/gmredi/gmredi_calc_diff.F 2003/01/10 00:48:39 1.7 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/gmredi/gmredi_calc_diff.F,v 1.6 2002/11/15 02:57:47 heimbach Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/gmredi/gmredi_calc_diff.F,v 1.7 2003/01/10 00:48:39 heimbach Exp $ C $Name: $ #include "GMREDI_OPTIONS.h" @@ -42,14 +42,12 @@ DO j=jMin,jMax DO i=iMin,iMax KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj) -cph & *GM_adjointRescale*GM_adjointRescale ENDDO ENDDO DO j=jMin,jMax DO i=iMin,iMax KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)*Kwz(i,j,k,bi,bj) -cph & *GM_adjointRescale*GM_adjointRescale ENDDO ENDDO