/[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.77 by jmc, Sun Dec 14 23:18:49 2003 UTC revision 1.78 by jmc, Mon Dec 15 02:07:29 2003 UTC
# Line 257  CADJ STORE ptracer  = comlev1, key = ike Line 257  CADJ STORE ptracer  = comlev1, key = ike
257  # endif  # endif
258  #endif  #endif
259    
260    #ifdef COMPONENT_MODULE
261           IF ( useCoupler ) THEN
262    C      Post coupling data that I export.
263    C      Read in coupling data that I import.
264             CALL TIMER_START('CPL_EXPORT-IMPORT  [FORWARD_STEP]',myThid)
265             CALL CPL_EXPORT_MY_DATA(       myIter, myTime, myThid )
266             CALL CPL_IMPORT_EXTERNAL_DATA( myIter, myTime, myThid )
267             CALL TIMER_STOP ('CPL_EXPORT-IMPORT  [FORWARD_STEP]',myThid)
268           ENDIF
269    #endif /* COMPONENT_MODULE */
270    
271    #ifdef COMPONENT_MODULE
272    # ifndef ALLOW_AIM
273    C jmc: don't know precisely where to put this call. leave it here for now.
274           IF ( useCoupler ) THEN
275             CALL OCN_APPLY_IMPORT( myTime, myIter, myThid )
276           ENDIF
277    # endif
278    #endif /* COMPONENT_MODULE */
279    
280  C--     Step forward fields and calculate time tendency terms.  C--     Step forward fields and calculate time tendency terms.
281  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
282        IF ( debugLevel .GE. debLevB )        IF ( debugLevel .GE. debLevB )
Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78
  ViewVC Help
Powered by ViewVC 1.1.22