/[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.71 by edhill, Tue Nov 4 18:40:58 2003 UTC revision 1.72 by heimbach, Thu Nov 6 22:01:43 2003 UTC
# Line 139  C--   compute the future surface level t Line 139  C--   compute the future surface level t
139        ENDIF        ENDIF
140  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
141    
 C--   Load forcing/external data fields.  
142  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
143  c**************************************  c**************************************
144  #include "checkpoint_lev1_directives.h"  #include "checkpoint_lev1_directives.h"
145  c**************************************  c**************************************
146  #endif  #endif
147    
   
148  C--   Call external forcing package  C--   Call external forcing package
149  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
150        IF ( useBulkforce ) THEN        IF ( useBulkforce ) THEN
# Line 173  C       _EXCH_XY_R8(fv     , mythid) Line 171  C       _EXCH_XY_R8(fv     , mythid)
171  #endif /* ALLOW_BULK_FORCE */  #endif /* ALLOW_BULK_FORCE */
172    
173  # ifdef ALLOW_EXF  # ifdef ALLOW_EXF
174  C     NOTE, that although the exf package is part of the  #  ifdef ALLOW_DEBUG
 C     distribution, it is not currently maintained, i.e.  
 C     exf is disabled by default in genmake.  
 #ifdef ALLOW_DEBUG  
175        IF ( debugLevel .GE. debLevB )        IF ( debugLevel .GE. debLevB )
176       &    CALL DEBUG_CALL('EXF_GETFORCING',myThid)       &    CALL DEBUG_CALL('EXF_GETFORCING',myThid)
177  #endif  #  endif
178        CALL TIMER_START('EXF_GETFORCING     [FORWARD_STEP]',mythid)        CALL TIMER_START('EXF_GETFORCING     [FORWARD_STEP]',mythid)
179        CALL EXF_GETFORCING( mytime, myiter, mythid )        CALL EXF_GETFORCING( mytime, myiter, mythid )
180        CALL TIMER_STOP ('EXF_GETFORCING     [FORWARD_STEP]',mythid)        CALL TIMER_STOP ('EXF_GETFORCING     [FORWARD_STEP]',mythid)
Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72
  ViewVC Help
Powered by ViewVC 1.1.22