/[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.62 by stephd, Mon Oct 6 20:37:30 2003 UTC revision 1.63 by jmc, Tue Oct 7 04:31:30 2003 UTC
# Line 57  C     == Global variables == Line 57  C     == Global variables ==
57  # include "EOS.h"  # include "EOS.h"
58  # ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  # ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
59  #  include "exf_fields.h"  #  include "exf_fields.h"
60  #  if (defined (ALLOW_BULKFORMULAE) || defined (ALLOW_BULK_FORCE))  #  ifdef ALLOW_BULKFORMULAE
61  #   include "exf_constants.h"  #   include "exf_constants.h"
62  #  endif  #  endif
63  # endif  # endif
# Line 167  c     Update the tile edges. Line 167  c     Update the tile edges.
167         CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid)         CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid)
168  C       _EXCH_XY_R8(fu     , mythid)  C       _EXCH_XY_R8(fu     , mythid)
169  C       _EXCH_XY_R8(fv     , mythid)  C       _EXCH_XY_R8(fv     , mythid)
170        END IF        ELSE
171  #endif /* ALLOW_BULK_FORCE */  #endif /* ALLOW_BULK_FORCE */
172    
173  # ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  # ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
174  C     NOTE, that although the exf package is part of the  C     NOTE, that although the exf package is part of the
175  C     distribution, it is not currently maintained, i.e.  C     distribution, it is not currently maintained, i.e.
# Line 199  cph assuming that ALLOW_SEAICE has not y Line 200  cph assuming that ALLOW_SEAICE has not y
200        ENDIF        ENDIF
201  #  endif  #  endif
202  # endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */  # endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
203    #ifdef ALLOW_BULK_FORCE
204    C--   end of if/else block useBulfforce --
205          ENDIF
206    #endif /* ALLOW_BULK_FORCE */
207    
208  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
209  c--   Add control vector for forcing and parameter fields  c--   Add control vector for forcing and parameter fields
Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63
  ViewVC Help
Powered by ViewVC 1.1.22