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

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

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

revision 1.26 by jmc, Tue Dec 5 05:25:08 2006 UTC revision 1.27 by jahn, Fri Jun 26 23:10:09 2009 UTC
# Line 31  C     == Global data == Line 31  C     == Global data ==
31  #include "EEPARAMS.h"  #include "EEPARAMS.h"
32  #include "PARAMS.h"  #include "PARAMS.h"
33  #include "GRID.h"  #include "GRID.h"
34    #ifdef ALLOW_GENERIC_ADVDIFF
35    #include "GAD.h"
36    #endif
37    #ifdef ALLOW_LONGSTEP
38    #include "LONGSTEP_PARAMS.h"
39    #endif
40    #ifdef ALLOW_PTRACERS
41    #include "PTRACERS_SIZE.h"
42    #include "PTRACERS_PARAMS.h"
43    #endif
44  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
45  #include "tamc_keys.h"  #include "tamc_keys.h"
46  #endif  #endif
# Line 74  cph Not good for TAF: may create irreduc Line 84  cph Not good for TAF: may create irreduc
84  cph      IF (Nr.LE.1) RETURN  cph      IF (Nr.LE.1) RETURN
85  cph)  cph)
86    
87    #ifdef ALLOW_PTRACERS
88          IF ( tracerId.GE.GAD_TR1) THEN
89            DO k=1,Nr
90             deltaTX(k) = PTRACERS_dTLev(k)
91            ENDDO
92          ELSEIF ( tracerId.GE.1 ) THEN
93    #else
94        IF ( tracerId.GE.1 ) THEN        IF ( tracerId.GE.1 ) THEN
95    #endif
96          DO k=1,Nr          DO k=1,Nr
97           deltaTX(k) = dTtracerLev(k)           deltaTX(k) = dTtracerLev(k)
98          ENDDO          ENDDO
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22