/[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.48 by jmc, Sun Jan 26 21:07:25 2003 UTC revision 1.49 by heimbach, Thu Feb 6 22:42:11 2003 UTC
# Line 151  c     Update the tile edges. Line 151  c     Update the tile edges.
151  C       _EXCH_XY_R8(fu     , mythid)  C       _EXCH_XY_R8(fu     , mythid)
152  C       _EXCH_XY_R8(fv     , mythid)  C       _EXCH_XY_R8(fv     , mythid)
153  cswdblk -- end add ---  cswdblk -- end add ---
154  #else  #else /* ALLOW_BULK_FORCE undef */
155  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  # ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
156  C     NOTE, that although the exf package is part of the  C     NOTE, that although the exf package is part of the
157  C     distribution, it is not currently maintained, i.e.  C     distribution, it is not currently maintained, i.e.
158  C     exf is disabled by default in genmake.  C     exf is disabled by default in genmake.
159        CALL TIMER_START('EXF_GETFORCING     [FORWARD_STEP]',mythid)        CALL TIMER_START('EXF_GETFORCING     [FORWARD_STEP]',mythid)
160        CALL EXF_GETFORCING( mytime, myiter, mythid )        CALL EXF_GETFORCING( mytime, myiter, mythid )
161        CALL TIMER_STOP ('EXF_GETFORCING     [FORWARD_STEP]',mythid)        CALL TIMER_STOP ('EXF_GETFORCING     [FORWARD_STEP]',mythid)
162  #else  # else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */
163    cph The following IF-statement creates an additional dependency
164    cph for the forcing fields requiring additional storing.
165    cph Therefore, the IF-statement will be put between CPP-OPTIONS,
166    cph assuming that ALLOW_SEAICE has not yet been differentiated.
167    #  ifdef ALLOW_SEAICE
168        IF ( .NOT. useSEAICE ) THEN        IF ( .NOT. useSEAICE ) THEN
169    #  endif
170         CALL TIMER_START('EXTERNAL_FIELDS_LOAD[FORWARD_STEP]',mythid)         CALL TIMER_START('EXTERNAL_FIELDS_LOAD[FORWARD_STEP]',mythid)
171         CALL EXTERNAL_FIELDS_LOAD( mytime, myiter, mythid )         CALL EXTERNAL_FIELDS_LOAD( mytime, myiter, mythid )
172         CALL TIMER_STOP ('EXTERNAL_FIELDS_LOAD[FORWARD_STEP]',mythid)         CALL TIMER_STOP ('EXTERNAL_FIELDS_LOAD[FORWARD_STEP]',mythid)
173    #  ifdef ALLOW_SEAICE
174        ENDIF        ENDIF
175  #endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */  #  endif
176    # endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
177    
178  #ifdef ALLOW_SEAICE  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
179    c--   Add control vector for forcing and parameter fields
180          if ( myiter .EQ. nIter0 )
181         &     CALL CTRL_MAP_FORCING (mythid)
182    #endif
183    
184    # ifdef ALLOW_SEAICE
185  C--   Call sea ice model to compute forcing/external data fields.  In  C--   Call sea ice model to compute forcing/external data fields.  In
186  C     addition to computing prognostic sea-ice variables and diagnosing the  C     addition to computing prognostic sea-ice variables and diagnosing the
187  C     forcing/external data fields that drive the ocean model, SEAICE_MODEL  C     forcing/external data fields that drive the ocean model, SEAICE_MODEL
# Line 183  C     theta is dumped or time-averaged. Line 197  C     theta is dumped or time-averaged.
197           CALL SEAICE_MODEL( myTime, myIter, myThid )           CALL SEAICE_MODEL( myTime, myIter, myThid )
198           CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)           CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)
199        ENDIF        ENDIF
200  #endif ALLOW_SEAICE  # endif ALLOW_SEAICE
201  #endif ALLOW_BULK_FORCE  #endif ALLOW_BULK_FORCE
202    
203  C--     Step forward fields and calculate time tendency terms.  C--     Step forward fields and calculate time tendency terms.
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49
  ViewVC Help
Powered by ViewVC 1.1.22