--- MITgcm/model/src/dynamics.F 1998/06/22 15:26:25 1.21 +++ MITgcm/model/src/dynamics.F 1998/06/23 02:35:59 1.22 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.21 1998/06/22 15:26:25 adcroft Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.22 1998/06/23 02:35:59 adcroft Exp $ #include "CPP_EEOPTIONS.h" @@ -203,7 +203,7 @@ K13(i,j,1) = 0. _d 0 K23(i,j,1) = 0. _d 0 K33(i,j,1) = 0. _d 0 - KapGM(i,j) = 0. _d 0 + KapGM(i,j) = GMkbackground ENDDO ENDDO