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

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

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

revision 1.55 by stephd, Wed Jun 25 23:47:48 2003 UTC revision 1.56 by heimbach, Fri Jun 27 01:51:10 2003 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    #ifdef ALLOW_AUTODIFF_TAMC
6    # ifdef ALLOW_PTRACERS
7    #  include "PTRACERS_OPTIONS.h"
8    # endif
9    #endif /* ALLOW_AUTODIFF_TAMC */
10  cswdptr -- add --  cswdptr -- add --
11  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_GCHEM
12  #include "GCHEM_OPTIONS.h"  # include "GCHEM_OPTIONS.h"
13  #endif  #endif
14  cswdptr -- end add ---  cswdptr -- end add ---
15    
# Line 64  C     == Global variables == Line 69  C     == Global variables ==
69  # ifdef ALLOW_OBCS  # ifdef ALLOW_OBCS
70  #  include "OBCS.h"  #  include "OBCS.h"
71  # endif  # endif
72  #endif  # ifdef ALLOW_PTRACERS
73    #  include "PTRACERS.h"
74    # endif
75    #endif /* ALLOW_AUTODIFF_TAMC */
76    
77  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
78  C     == Routine arguments ==  C     == Routine arguments ==
# Line 221  C     theta is dumped or time-averaged. Line 229  C     theta is dumped or time-averaged.
229  # endif /* ALLOW_SEAICE */  # endif /* ALLOW_SEAICE */
230  #endif /* ALLOW_BULK_FORCE */  #endif /* ALLOW_BULK_FORCE */
231    
232    #ifdef ALLOW_AUTODIFF_TAMC
233    # ifdef ALLOW_PTRACERS
234    cph this replaces _bibj storing of ptracer within thermodynamics
235    CADJ STORE ptracer  = comlev1, key = ikey_dynamics
236    # endif
237    #endif
238  C--     Step forward fields and calculate time tendency terms.  C--     Step forward fields and calculate time tendency terms.
239  #ifndef DISABLE_DEBUGMODE  #ifndef DISABLE_DEBUGMODE
240        IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid)        IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid)
# Line 363  C--   Do "blocking" sends and receives f Line 377  C--   Do "blocking" sends and receives f
377    
378  cswdptr -- add for seperate timestepping of chemical/biological/forcing  cswdptr -- add for seperate timestepping of chemical/biological/forcing
379  cswdptr    of ptracers ---  cswdptr    of ptracers ---
380  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_GCHEM
381  #ifdef PTRACERS_SEPERATE_FORCING  #ifdef PTRACERS_SEPERATE_FORCING
382          call GCHEM_FORCING( myTime,myIter,myThid )          call GCHEM_FORCING( myTime,myIter,myThid )
383  #endif  #endif
Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56
  ViewVC Help
Powered by ViewVC 1.1.22