/[MITgcm]/MITgcm/verification/OpenAD/code_oad/externalDummies.F
ViewVC logotype

Diff of /MITgcm/verification/OpenAD/code_oad/externalDummies.F

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

revision 1.1 by utke, Thu Jan 29 21:46:49 2009 UTC revision 1.2 by utke, Sun May 23 14:57:53 2010 UTC
# Line 1  Line 1 
1  C ###########################################################  C ###########################################################
2  C      SUBROUTINE EXCH_UV_XY_RS(        SUBROUTINE EXCH1_RL(
3  C     U                       Uphi, Vphi,       U                 array,
4  C     I                       withSigns, myThid )       I                 myOLw, myOLe, myOLs, myOLn, myNz,
5  C      IMPLICIT NONE       I                 exchWidthX, exchWidthY,
6  C#include "SIZE.h"       I                 cornerMode, myThid )
7  C#include "EEPARAMS.h"  
 C#include "EESUPPORT.h"  
 C#include "EXCH.h"  
 C  
 C      _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
 C      _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
 C      _RS temp  
 C      LOGICAL withSigns  
 C      INTEGER myThid  
 C      temp=Uphi(1,1,1,1)  
 C      Uphi(1,1,1,1)=Vphi(1,1,1,1)  
 C      Vphi(1,1,1,1)=temp  
 C      end subroutine  
 C ###########################################################  
       SUBROUTINE EXCH_UV_XYZ_RL(  
      U                       Uphi, Vphi,  
      I                       withSigns, myThid )  
8        IMPLICIT NONE        IMPLICIT NONE
9  #include "SIZE.h"  #include "SIZE.h"
10  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "EESUPPORT.h"  
11  #include "EXCH.h"  #include "EXCH.h"
12        _RL Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        INTEGER myOLw, myOLe, myOLs, myOLn, myNz
13        _RL Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL     array( 1-myOLw:sNx+myOLe,
14        _RL temp       &               1-myOLs:sNy+myOLn,
15        LOGICAL withSigns       &               myNz, nSx, nSy )
16          INTEGER exchWidthX
17          INTEGER exchWidthY
18          INTEGER cornerMode
19        INTEGER myThid        INTEGER myThid
       temp=Uphi(1,1,1,1,1)  
       Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)  
       Vphi(1,1,1,1,1)=temp  
20        end subroutine        end subroutine
21  C ###########################################################  C ###########################################################
22  C      SUBROUTINE EXCH_UV_XYZ_RS(  C      SUBROUTINE EXCH1_RS(
23  C     U                       Uphi, Vphi,  C     U                 array,
24  C     I                       withSigns, myThid )  C     I                 myOLw, myOLe, myOLs, myOLn, myNz,
25    C     I                 exchWidthX, exchWidthY,
26    C     I                 cornerMode, myThid )
27    C
28  C      IMPLICIT NONE  C      IMPLICIT NONE
29  C#include "SIZE.h"  C#include "SIZE.h"
30  C#include "EEPARAMS.h"  C#include "EEPARAMS.h"
 C#include "EESUPPORT.h"  
31  C#include "EXCH.h"  C#include "EXCH.h"
32  C      _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  C      INTEGER myOLw, myOLe, myOLs, myOLn, myNz
33  C      _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  C      _RS     array( 1-myOLw:sNx+myOLe,
34  C      _RL temp  C     &               1-myOLs:sNy+myOLn,
35  C      LOGICAL withSigns  C     &               myNz, nSx, nSy )
36    C      INTEGER exchWidthX
37    C      INTEGER exchWidthY
38    C      INTEGER cornerMode
39  C      INTEGER myThid  C      INTEGER myThid
 C      temp=Uphi(1,1,1,1,1)  
 C      Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)  
 C      Vphi(1,1,1,1,1)=temp  
40  C      end subroutine  C      end subroutine
41  C ###########################################################  C ###########################################################
       SUBROUTINE EXCH_XY_RL(  
      U                       phi,  
      I                       myThid )  
       IMPLICIT NONE  
 #include "SIZE.h"  
 #include "EEPARAMS.h"  
 #include "EESUPPORT.h"  
 #include "EXCH.h"  
       _RL phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       INTEGER myThid  
       phi(1,1,1,1)=2*phi(1,1,1,1)  
       end subroutine  
 C ###########################################################  
       SUBROUTINE EXCH_XYZ_RL(  
      U                       phi,  
      I                       myThid )  
       IMPLICIT NONE  
 #include "SIZE.h"  
 #include "EEPARAMS.h"  
 #include "EESUPPORT.h"  
 #include "EXCH.h"  
       _RL phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       INTEGER myThid  
       phi(1,1,1,1,1)=2*phi(1,1,1,1,1)  
       end subroutine  
 CC ###########################################################  
42  C      SUBROUTINE GLOBAL_MAX_R8(  C      SUBROUTINE GLOBAL_MAX_R8(
43  C     U                       maxphi,  C     U                       maxphi,
44  C     I                       myThid )  C     I                       myThid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22