/[MITgcm]/MITgcm/pkg/ggl90/ggl90_calc_diff.F
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/ggl90_calc_diff.F

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

revision 1.1 by mlosch, Thu Sep 16 11:27:18 2004 UTC revision 1.2 by jmc, Sun Oct 17 23:11:59 2004 UTC
# Line 47  C     I, J, K - Loop counters Line 47  C     I, J, K - Loop counters
47  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
48       &                     - diffKr(i,j,k,bi,bj) )       &                     - diffKr(i,j,k,bi,bj) )
49  #else  #else
50       &                     - diffKrT )       &                     - diffKrNrT(k) )
51  #endif  #endif
52         ENDDO         ENDDO
53        ENDDO        ENDDO
# Line 59  C     I, J, K - Loop counters Line 59  C     I, J, K - Loop counters
59  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
60       &                     - diffKr(i,j,k,bi,bj) )       &                     - diffKr(i,j,k,bi,bj) )
61  #else  #else
62       &                     - diffKrS )       &                     - diffKrNrS(k) )
63  #endif  #endif
64         ENDDO         ENDDO
65        ENDDO        ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22