/[MITgcm]/MITgcm/model/src/calc_3d_diffusivity.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_3d_diffusivity.F

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

revision 1.3 by jmc, Fri Dec 3 15:39:11 2004 UTC revision 1.5 by dimitri, Thu Apr 5 00:02:49 2007 UTC
# Line 62  C     i, j, k    :: Loop counters Line 62  C     i, j, k    :: Loop counters
62  C     iTr        :: passive tracer index  C     iTr        :: passive tracer index
63  C     msgBuf     :: message buffer  C     msgBuf     :: message buffer
64        INTEGER i,j,k        INTEGER i,j,k
       INTEGER iTr  
65        _RL KbryanLewis79        _RL KbryanLewis79
66        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
67    #ifdef ALLOW_PTRACERS
68          INTEGER iTr
69    #endif
70  CEOP  CEOP
71    
72        IF ( trIdentity.EQ.GAD_TEMPERATURE) THEN        IF ( trIdentity.EQ.GAD_TEMPERATURE) THEN
# Line 79  CEOP Line 81  CEOP
81  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
82       &       + diffKr(i,j,k,bi,bj)       &       + diffKr(i,j,k,bi,bj)
83  #else  #else
84       &       + diffKrNrT(k)       &       + diffKr3dT(i,j,k,bi,bj)
85  #endif  #endif
86       &       + KbryanLewis79       &       + KbryanLewis79
87           ENDDO           ENDDO
# Line 98  CEOP Line 100  CEOP
100  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
101       &       + diffKr(i,j,k,bi,bj)       &       + diffKr(i,j,k,bi,bj)
102  #else  #else
103       &       + diffKrNrS(k)       &       + diffKr3dS(i,j,k,bi,bj)
104  #endif  #endif
105       &       + KbryanLewis79       &       + KbryanLewis79
106           ENDDO           ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22