/[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.41 by heimbach, Mon Jun 23 22:32:02 2003 UTC revision 1.42 by heimbach, Fri Jun 27 01:51:10 2003 UTC
# Line 9  C $Name$ Line 9  C $Name$
9  # ifdef ALLOW_KPP  # ifdef ALLOW_KPP
10  #  include "KPP_OPTIONS.h"  #  include "KPP_OPTIONS.h"
11  # endif  # endif
12  cswdice --- add ----  # ifdef ALLOW_PTRACERS
13  #ifdef ALLOW_THERM_SEAICE  #  include "PTRACERS_OPTIONS.h"
14  #include "ICE.h"  # endif
 #endif  
 cswdice ------  
15  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
16    
17  CBOP  CBOP
# Line 84  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_TIMEAVE
86    #include "TIMEAVE_STATV.h"
87    #endif
88    
89  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
90  # include "tamc.h"  # include "tamc.h"
91  # include "tamc_keys.h"  # include "tamc_keys.h"
# Line 95  C     == Global variables === Line 97  C     == Global variables ===
97  # ifdef ALLOW_GMREDI  # ifdef ALLOW_GMREDI
98  #  include "GMREDI.h"  #  include "GMREDI.h"
99  # endif  # endif
100    # ifdef ALLOW_PTRACERS
101    #  include "PTRACERS.h"
102    # endif
103    cswdice --- add ----
104    # ifdef ALLOW_THERM_SEAICE
105    #  include "ICE.h"
106    # endif
107    cswdice ------
108  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
 #ifdef ALLOW_TIMEAVE  
 #include "TIMEAVE_STATV.h"  
 #endif  
109    
110  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
111  C     == Routine arguments ==  C     == Routine arguments ==
# Line 160  C     This is currently used by IVDC and Line 167  C     This is currently used by IVDC and
167        INTEGER bi, bj        INTEGER bi, bj
168        INTEGER i, j        INTEGER i, j
169        INTEGER k, km1, kup, kDown        INTEGER k, km1, kup, kDown
170          INTEGER iTracer
171    
172  CEOP  CEOP
173    
# Line 247  cph although some of these are re-initia Line 255  cph although some of these are re-initia
255  # ifdef ALLOW_PASSIVE_TRACER  # ifdef ALLOW_PASSIVE_TRACER
256             gTr1(i,j,k,bi,bj) = 0. _d 0             gTr1(i,j,k,bi,bj) = 0. _d 0
257  # endif  # endif
258    # ifdef ALLOW_PTRACERS
259               DO iTracer=1,PTRACERS_numInUse
260                gPTr(i,j,k,bi,bj,itracer) = 0. _d 0
261               ENDDO
262    # endif
263  # ifdef ALLOW_GMREDI  # ifdef ALLOW_GMREDI
264             Kwx(i,j,k,bi,bj)  = 0. _d 0             Kwx(i,j,k,bi,bj)  = 0. _d 0
265             Kwy(i,j,k,bi,bj)  = 0. _d 0             Kwy(i,j,k,bi,bj)  = 0. _d 0
# Line 277  cph although some of these are re-initia Line 290  cph although some of these are re-initia
290          jMin = 1-OLy          jMin = 1-OLy
291          jMax = sNy+OLy          jMax = sNy+OLy
292    
   
293  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
294  CADJ STORE theta(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE theta(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
295  CADJ STORE salt (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE salt (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
# Line 520  CADJ STORE vvel (:,:,:,bi,bj) = comlev1_ Line 532  CADJ STORE vvel (:,:,:,bi,bj) = comlev1_
532  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
533  CADJ STORE tr1  (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE tr1  (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
534  #endif  #endif
535    #ifdef ALLOW_PTRACERS
536    cph-- moved to forward_step to avoid key computation
537    cphCADJ STORE ptracer(:,:,:,bi,bj,itracer) = comlev1_bibj,
538    cphCADJ &                              key=itdkey, byte=isbyte
539    #endif
540  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
541    
542  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
# Line 694  cswdice -- end add --- Line 711  cswdice -- end add ---
711  #endif  #endif
712  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
713           IF ( usePTRACERS ) THEN           IF ( usePTRACERS ) THEN
714             CALL PTRACERS_INTEGERATE(             CALL PTRACERS_INTEGRATE(
715       I         bi,bj,k,       I         bi,bj,k,
716       I         xA,yA,uTrans,vTrans,rTrans,maskUp,       I         xA,yA,uTrans,vTrans,rTrans,maskUp,
717       X         KappaRS,       X         KappaRS,
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22