73 |
|
|
74 |
C-- Load forcing/external data fields |
C-- Load forcing/external data fields |
75 |
CALL TIMER_START('I/O (READ) [FORWARD_STEP]',myThid) |
CALL TIMER_START('I/O (READ) [FORWARD_STEP]',myThid) |
76 |
CALL LOAD_EXTERNAL_FIELDS( myCurrentTime, myCurrentIter, myThid ) |
CALL EXTERNAL_FIELDS_LOAD( myCurrentTime, myCurrentIter, myThid ) |
77 |
CALL TIMER_STOP ('I/O (READ) [FORWARD_STEP]',myThid) |
CALL TIMER_STOP ('I/O (READ) [FORWARD_STEP]',myThid) |
78 |
|
|
79 |
#ifdef INCLUDE_SHAPIRO_FILTER_CODE |
#ifdef INCLUDE_SHAPIRO_FILTER_CODE |