/[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.57 by heimbach, Tue Jul 8 15:00:26 2003 UTC revision 1.58 by jmc, Thu Jul 10 16:09:01 2003 UTC
# Line 151  c************************************** Line 151  c**************************************
151    
152    
153  C--   Call external forcing package  C--   Call external forcing package
 cswdblk -- add ---  
154  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
155  #ifndef DISABLE_DEBUGMODE  #ifndef DISABLE_DEBUGMODE
156        IF ( debugLevel .GE. debLevB )        IF ( useBulkforce ) THEN
157           IF ( debugLevel .GE. debLevB )
158       &    CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid)       &    CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid)
159  #endif  #endif
160         CALL TIMER_START('BULKF_FIELDS_LOAD[THE_MAIN_LOOP]',mythid)         CALL TIMER_START('BULKF_FIELDS_LOAD[THE_MAIN_LOOP]',mythid)
# Line 172  c     Update the tile edges. Line 172  c     Update the tile edges.
172         CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid)         CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid)
173  C       _EXCH_XY_R8(fu     , mythid)  C       _EXCH_XY_R8(fu     , mythid)
174  C       _EXCH_XY_R8(fv     , mythid)  C       _EXCH_XY_R8(fv     , mythid)
175  cswdblk -- end add ---        ELSE
176  #else /* ALLOW_BULK_FORCE undef */  #else /* ALLOW_BULK_FORCE undef */
177          IF ( .TRUE. ) THEN
178    #endif /* ALLOW_BULK_FORCE */
179  # ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  # ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
180  C     NOTE, that although the exf package is part of the  C     NOTE, that although the exf package is part of the
181  C     distribution, it is not currently maintained, i.e.  C     distribution, it is not currently maintained, i.e.
# Line 204  cph assuming that ALLOW_SEAICE has not y Line 206  cph assuming that ALLOW_SEAICE has not y
206        ENDIF        ENDIF
207  #  endif  #  endif
208  # endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */  # endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
209    C--   end of if/else block useBulfforce --
210          ENDIF
211    
212  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
213  c--   Add control vector for forcing and parameter fields  c--   Add control vector for forcing and parameter fields
# Line 232  C     theta is dumped or time-averaged. Line 236  C     theta is dumped or time-averaged.
236           CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)           CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)
237        ENDIF        ENDIF
238  # endif /* ALLOW_SEAICE */  # endif /* ALLOW_SEAICE */
 #endif /* ALLOW_BULK_FORCE */  
239    
240  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
241  # ifdef ALLOW_PTRACERS  # ifdef ALLOW_PTRACERS
Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58
  ViewVC Help
Powered by ViewVC 1.1.22