/[MITgcm]/MITgcm/pkg/exch2/exch2_uv_3d_rx.template
ViewVC logotype

Diff of /MITgcm/pkg/exch2/exch2_uv_3d_rx.template

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Fri Aug 1 00:50:18 2008 UTC revision 1.5 by jmc, Mon Apr 27 04:06:11 2009 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5  #include "W2_OPTIONS.h"  #include "W2_OPTIONS.h"
6  #define DO_CORNER_COPY_V2U  #undef DO_CORNER_COPY_V2U
7    
8  CBOP  CBOP
9  C     !ROUTINE: EXCH2_UV_3D_RX  C     !ROUTINE: EXCH2_UV_3D_RX
# Line 119  C          Uphi(snx+1,sny+1,k,bi,bj)= vP Line 119  C          Uphi(snx+1,sny+1,k,bi,bj)= vP
119            ENDDO            ENDDO
120           ENDIF           ENDIF
121          ENDIF          ENDIF
122  #endif  #endif /* DO_CORNER_COPY_V2U */
123    
124  C--     Now zero out the null areas that should not be used in the numerics  C--     Now zero out the null areas that should not be used in the numerics
125  C       Also add one valid u,v value next to the corner, that allows  C       Also add one valid u,v value next to the corner, that allows
# Line 231  c      CALL EXCH_RX( Vphi, Line 231  c      CALL EXCH_RX( Vphi,
231  c    I            OLw, OLe, OLs, OLn, myNz,  c    I            OLw, OLe, OLs, OLn, myNz,
232  c    I            exchWidthX, exchWidthY,  c    I            exchWidthX, exchWidthY,
233  c    I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )  c    I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )
234  c_jmc: for JAM compatibility, replace the 2 CALLs above by the 2 CPP_MACROs:         CALL EXCH_3D_RX( Uphi, myNz, myThid )
235         _EXCH_XYZ_RX( Uphi, myThid )         CALL EXCH_3D_RX( Vphi, myNz, myThid )
        _EXCH_XYZ_RX( Vphi, myThid )  
236    
237        ENDIF        ENDIF
238    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22