/[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.60 by dimitri, Thu Sep 25 03:01:59 2003 UTC revision 1.61 by heimbach, Thu Oct 2 21:33:54 2003 UTC
# Line 167  c     Update the tile edges. Line 167  c     Update the tile edges.
167         CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid)         CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid)
168  C       _EXCH_XY_R8(fu     , mythid)  C       _EXCH_XY_R8(fu     , mythid)
169  C       _EXCH_XY_R8(fv     , mythid)  C       _EXCH_XY_R8(fv     , mythid)
170        ELSE        END IF
 #else /* ALLOW_BULK_FORCE undef */  
       IF ( .TRUE. ) THEN  
171  #endif /* ALLOW_BULK_FORCE */  #endif /* ALLOW_BULK_FORCE */
172  # ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  # ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
173  C     NOTE, that although the exf package is part of the  C     NOTE, that although the exf package is part of the
# Line 201  cph assuming that ALLOW_SEAICE has not y Line 199  cph assuming that ALLOW_SEAICE has not y
199        ENDIF        ENDIF
200  #  endif  #  endif
201  # endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */  # endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
 C--   end of if/else block useBulfforce --  
       ENDIF  
202    
203  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
204  c--   Add control vector for forcing and parameter fields  c--   Add control vector for forcing and parameter fields
# Line 282  C--   do exchanges (needed for DYNAMICS) Line 278  C--   do exchanges (needed for DYNAMICS)
278  #endif    #endif  
279    
280  C--   Step forward fields and calculate time tendency terms.  C--   Step forward fields and calculate time tendency terms.
281    #ifndef ALLOW_AUTODIFF_TAMC
282        IF ( momStepping ) THEN        IF ( momStepping ) THEN
283    #endif
284  #ifndef DISABLE_DEBUGMODE  #ifndef DISABLE_DEBUGMODE
285          IF ( debugLevel .GE. debLevB )          IF ( debugLevel .GE. debLevB )
286       &    CALL DEBUG_CALL('DYNAMICS',myThid)       &    CALL DEBUG_CALL('DYNAMICS',myThid)
# Line 290  C--   Step forward fields and calculate Line 288  C--   Step forward fields and calculate
288          CALL TIMER_START('DYNAMICS            [FORWARD_STEP]',mythid)          CALL TIMER_START('DYNAMICS            [FORWARD_STEP]',mythid)
289          CALL DYNAMICS( myTime, myIter, myThid )          CALL DYNAMICS( myTime, myIter, myThid )
290          CALL TIMER_STOP ('DYNAMICS            [FORWARD_STEP]',mythid)          CALL TIMER_STOP ('DYNAMICS            [FORWARD_STEP]',mythid)
291    #ifndef ALLOW_AUTODIFF_TAMC
292        ENDIF        ENDIF
293    #endif
294    
295  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
296  C--   Step forward W field in N-H algorithm  C--   Step forward W field in N-H algorithm
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61
  ViewVC Help
Powered by ViewVC 1.1.22