/[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.63 by jmc, Tue Oct 7 04:31:30 2003 UTC revision 1.64 by edhill, Thu Oct 9 04:19:18 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  cswdptr -- add --  cswdptr -- add --
8  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
9  # include "GCHEM_OPTIONS.h"  # include "GCHEM_OPTIONS.h"
# Line 147  c************************************** Line 149  c**************************************
149    
150  C--   Call external forcing package  C--   Call external forcing package
151  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
 #ifndef DISABLE_DEBUGMODE  
152        IF ( useBulkforce ) THEN        IF ( useBulkforce ) THEN
153    #ifndef DISABLE_DEBUGMODE
154         IF ( debugLevel .GE. debLevB )         IF ( debugLevel .GE. debLevB )
155       &    CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid)       &    CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid)
156  #endif  #endif
# Line 170  C       _EXCH_XY_R8(fv     , mythid) Line 172  C       _EXCH_XY_R8(fv     , mythid)
172        ELSE        ELSE
173  #endif /* ALLOW_BULK_FORCE */  #endif /* ALLOW_BULK_FORCE */
174    
175  # ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  # ifdef ALLOW_EXF
176  C     NOTE, that although the exf package is part of the  C     NOTE, that although the exf package is part of the
177  C     distribution, it is not currently maintained, i.e.  C     distribution, it is not currently maintained, i.e.
178  C     exf is disabled by default in genmake.  C     exf is disabled by default in genmake.
# Line 181  C     exf is disabled by default in genm Line 183  C     exf is disabled by default in genm
183        CALL TIMER_START('EXF_GETFORCING     [FORWARD_STEP]',mythid)        CALL TIMER_START('EXF_GETFORCING     [FORWARD_STEP]',mythid)
184        CALL EXF_GETFORCING( mytime, myiter, mythid )        CALL EXF_GETFORCING( mytime, myiter, mythid )
185        CALL TIMER_STOP ('EXF_GETFORCING     [FORWARD_STEP]',mythid)        CALL TIMER_STOP ('EXF_GETFORCING     [FORWARD_STEP]',mythid)
186  # else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */  # else /* ALLOW_EXF undef */
187  cph The following IF-statement creates an additional dependency  cph The following IF-statement creates an additional dependency
188  cph for the forcing fields requiring additional storing.  cph for the forcing fields requiring additional storing.
189  cph Therefore, the IF-statement will be put between CPP-OPTIONS,  cph Therefore, the IF-statement will be put between CPP-OPTIONS,
# Line 199  cph assuming that ALLOW_SEAICE has not y Line 201  cph assuming that ALLOW_SEAICE has not y
201  #  ifdef ALLOW_SEAICE  #  ifdef ALLOW_SEAICE
202        ENDIF        ENDIF
203  #  endif  #  endif
204  # endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */  # endif /* ALLOW_EXF */
205  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
206  C--   end of if/else block useBulfforce --  C--   end of if/else block useBulfforce --
207        ENDIF        ENDIF
# Line 400  C--   Do "blocking" sends and receives f Line 402  C--   Do "blocking" sends and receives f
402  cswdptr -- add for seperate timestepping of chemical/biological/forcing  cswdptr -- add for seperate timestepping of chemical/biological/forcing
403  cswdptr    of ptracers ---  cswdptr    of ptracers ---
404  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
405    ceh3 This is broken -- this ifdef should not be visible!
406  #ifdef PTRACERS_SEPARATE_FORCING  #ifdef PTRACERS_SEPARATE_FORCING
407    ceh3 needs an IF ( use GCHEM ) THEN
408          call GCHEM_FORCING_SEP( myTime,myIter,myThid )          call GCHEM_FORCING_SEP( myTime,myIter,myThid )
409  #endif  #endif /* PTRACERS_SEPARATE_FORCING */
410  #endif  #endif /* ALLOW_GCHEM */
411  cswdptr -- end add ---  cswdptr -- end add ---
412    
413    
Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64
  ViewVC Help
Powered by ViewVC 1.1.22