/[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.37 by heimbach, Fri Nov 15 03:01:21 2002 UTC revision 1.38 by cheisey, Fri Nov 15 19:58:21 2002 UTC
# Line 116  C      according to etaH(n+1) Line 116  C      according to etaH(n+1)
116          ENDIF          ENDIF
117  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
118    
119    
120    
121    
122  C--     Load forcing/external data fields.  C--     Load forcing/external data fields.
123  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
124  c**************************************  c**************************************
125  #include "checkpoint_lev1_directives.h"  #include "checkpoint_lev1_directives.h"
126  c**************************************  c**************************************
127  #endif  #endif
128    
129    
130  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
131  C--   Call external forcing package  C--   Call external forcing package
132    cswdblk -- add ---
133    #ifdef ALLOW_BULKFORMULA
134           CALL TIMER_START('BULKF_FIELDS_LOAD[THE_MAIN_LOOP]',mythid)
135           CALL BULKF_FIELDS_LOAD( mytime, myiter, mythid )
136           CALL TIMER_STOP ('BULKF_FIELDS_LOAD[THE_MAIN_LOOP]',mythid)
137    c calculate qnet and empmr (and wind stress)
138           DO bj=myByLo(myThid),myByHi(myThid)
139             DO bi=myBxLo(myThid),myBxHi(myThid)
140              CALL BULKF_FORCING( bi,bj, mytime, myiter, mythid )
141             ENDDO
142           ENDDO
143    c     Update the tile edges.
144           _EXCH_XY_R8(Qnet,   mythid)
145           _EXCH_XY_R8(EmPmR,   mythid)
146           _EXCH_XY_R8(fu     , mythid)
147           _EXCH_XY_R8(fv     , mythid)
148    cswdblk -- end add ---
149    #endif
150          IF ( .not. useSEAICE ) THEN          IF ( .not. useSEAICE ) THEN
151           CALL TIMER_START('EXF_GETFORCING     [FORWARD_STEP]',mythid)           CALL TIMER_START('EXF_GETFORCING     [FORWARD_STEP]',mythid)
152           CALL EXF_GETFORCING( mytime, myiter, mythid )           CALL EXF_GETFORCING( mytime, myiter, mythid )
# Line 137  C--   Call external forcing package Line 160  C--   Call external forcing package
160          ENDIF          ENDIF
161  #endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */  #endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
162    
163    
164    
165    
166  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
167  C--   Call sea ice model to compute forcing/external data fields.  C--   Call sea ice model to compute forcing/external data fields.
168          IF ( useSEAICE ) THEN          IF ( useSEAICE ) THEN
169           CALL TIMER_START('SEAICE_MODEL       [FORWARD_STEP]',myThid)           CALL TIMER_START('SEAICE_MODEL       [FORWARD_STEP]',myThid)
170           CALL SEAICE_MODEL( myTime, myIter, myThid )  Cxxxx         CALL SEAICE_MODEL( myTime, myIter, myThid )
171           CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)           CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)
172          ENDIF          ENDIF
173  #endif ALLOW_SEAICE  #endif ALLOW_SEAICE
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22