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

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

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

revision 1.44 by jmc, Fri Jul 11 16:00:08 2003 UTC revision 1.45 by jmc, Mon Sep 22 22:12:05 2003 UTC
# Line 82  C     == Global variables === Line 82  C     == Global variables ===
82  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
83  #include "TR1.h"  #include "TR1.h"
84  #endif  #endif
85    #ifdef ALLOW_PTRACERS
86    #include "PTRACERS.h"
87    #endif
88  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
89  #include "TIMEAVE_STATV.h"  #include "TIMEAVE_STATV.h"
90  #endif  #endif
# Line 97  C     == Global variables === Line 100  C     == Global variables ===
100  # ifdef ALLOW_GMREDI  # ifdef ALLOW_GMREDI
101  #  include "GMREDI.h"  #  include "GMREDI.h"
102  # endif  # endif
 # ifdef ALLOW_PTRACERS  
 #  include "PTRACERS.h"  
 # endif  
103  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
104    
105  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
# Line 243  C This is currently also used by IVDC an Line 243  C This is currently also used by IVDC an
243             ConvectCount(i,j,k) = 0.             ConvectCount(i,j,k) = 0.
244             KappaRT(i,j,k)    = 0. _d 0             KappaRT(i,j,k)    = 0. _d 0
245             KappaRS(i,j,k)    = 0. _d 0             KappaRS(i,j,k)    = 0. _d 0
246  #ifdef ALLOW_AUTODIFF_TAMC  C- tracer tendency needs to be set to zero (moved here from gad_calc_rhs):
 cph all the following init. are necessary for TAF  
 cph although some of these are re-initialised later.  
247             gT(i,j,k,bi,bj)   = 0. _d 0             gT(i,j,k,bi,bj)   = 0. _d 0
248             gS(i,j,k,bi,bj)   = 0. _d 0             gS(i,j,k,bi,bj)   = 0. _d 0
249  # ifdef ALLOW_PASSIVE_TRACER  # ifdef ALLOW_PASSIVE_TRACER
# Line 256  cph although some of these are re-initia Line 254  cph although some of these are re-initia
254              gPTr(i,j,k,bi,bj,itracer) = 0. _d 0              gPTr(i,j,k,bi,bj,itracer) = 0. _d 0
255             ENDDO             ENDDO
256  # endif  # endif
257    #ifdef ALLOW_AUTODIFF_TAMC
258    cph all the following init. are necessary for TAF
259    cph although some of these are re-initialised later.
260  # ifdef ALLOW_GMREDI  # ifdef ALLOW_GMREDI
261             Kwx(i,j,k,bi,bj)  = 0. _d 0             Kwx(i,j,k,bi,bj)  = 0. _d 0
262             Kwy(i,j,k,bi,bj)  = 0. _d 0             Kwy(i,j,k,bi,bj)  = 0. _d 0
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22