pkg/obcs/obcs_exchanges.F

64e4c8fd27 Patr*0001 #include "OBCS_OPTIONS.h"
                0002
2150416ce8 Jean*0003       SUBROUTINE OBCS_EXCHANGES( myThid )
64e4c8fd27 Patr*0004 C     *==========================================================*
2150416ce8 Jean*0005 C     | S/R OBCS_EXCHANGES
64e4c8fd27 Patr*0006 C     *==========================================================*
82d5d8ea78 Jean*0007 C     | Exchanges are needed in case obcs are read from file.
                0008 C     | EXch of xz, yz fields are avoided, so we exchange full
                0009 C     | fields after obcs have been added.
                0010 c     | Only needed for velocity fields, tracer fields wont be
                0011 C     | affected before they get exchanged at the end of
                0012 C     | time stepping loop.
                0013 C     | Note (jmc): EXCH of velocity fields do not seem needed,
                0014 C     |   except EXCH gU,gV with OBCSsponge (partly because how
                0015 C     |   OBCSsponge is written)
64e4c8fd27 Patr*0016 C     *==========================================================*
                0017
                0018       IMPLICIT NONE
                0019 C     == Global variables ==
                0020 #include "SIZE.h"
                0021 #include "EEPARAMS.h"
                0022 #include "PARAMS.h"
                0023 #include "DYNVARS.h"
9b4f2a04e2 Jean*0024 #include "OBCS_PARAMS.h"
64e4c8fd27 Patr*0025
                0026 C     == Routine Arguments ==
                0027       INTEGER myThid
                0028
                0029 #ifdef ALLOW_OBCS
82d5d8ea78 Jean*0030 c#ifdef ALLOW_OBCS_PRESCRIBE
                0031 #ifdef ALLOW_OBCS_SPONGE
64e4c8fd27 Patr*0032
                0033 C     == Local variables ==
                0034
82d5d8ea78 Jean*0035 c     IF (useOBCSprescribe) THEN
                0036 c      CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
                0037 c      CALL EXCH_UV_XYZ_RL(gU,gV,.TRUE.,myThid)
                0038 c     ENDIF
                0039       IF ( useOBCSsponge ) THEN
                0040         CALL EXCH_UV_XYZ_RL( gU, gV, .TRUE., myThid )
64e4c8fd27 Patr*0041       ENDIF
                0042
                0043 #endif
82d5d8ea78 Jean*0044 c#endif
64e4c8fd27 Patr*0045 #endif
                0046
                0047       RETURN
                0048       END