--- MITgcm/pkg/ggl90/ggl90_calc_diff.F 2004/09/16 11:27:18 1.1 +++ MITgcm/pkg/ggl90/ggl90_calc_diff.F 2004/10/17 23:11:59 1.2 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ggl90/ggl90_calc_diff.F,v 1.1 2004/09/16 11:27:18 mlosch Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ggl90/ggl90_calc_diff.F,v 1.2 2004/10/17 23:11:59 jmc Exp $ C $Name: $ #include "GGL90_OPTIONS.h" @@ -47,7 +47,7 @@ #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)) & - diffKr(i,j,k,bi,bj) ) #else - & - diffKrT ) + & - diffKrNrT(k) ) #endif ENDDO ENDDO @@ -59,7 +59,7 @@ #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)) & - diffKr(i,j,k,bi,bj) ) #else - & - diffKrS ) + & - diffKrNrS(k) ) #endif ENDDO ENDDO