/[MITgcm]/MITgcm_contrib/heimbach/OpenAD/code_regress/externalDummies.F
ViewVC logotype

Diff of /MITgcm_contrib/heimbach/OpenAD/code_regress/externalDummies.F

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

revision 1.2 by utke, Wed Aug 27 20:06:53 2008 UTC revision 1.5 by utke, Mon Dec 27 23:15:52 2010 UTC
# Line 1  Line 1 
1  C ###########################################################  C ###########################################################
2        SUBROUTINE EXCH_UV_XY_RS(        SUBROUTINE EXCH1_RL(
3       U                       Uphi, Vphi,       U                 array,
4       I                       withSigns, myThid )       I                 myOLw, myOLe, myOLs, myOLn, myNz,
5        IMPLICIT NONE       I                 exchWidthX, exchWidthY,
6  #include "SIZE.h"       I                 cornerMode, myThid )
 #include "EEPARAMS.h"  
 #include "EESUPPORT.h"  
 #include "EXCH.h"  
7    
       _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RS temp  
       LOGICAL withSigns  
       INTEGER myThid  
       temp=Uphi(1,1,1,1)  
       Uphi(1,1,1,1)=Vphi(1,1,1,1)  
       Vphi(1,1,1,1)=temp  
       end subroutine  
 C ###########################################################  
       SUBROUTINE EXCH_UV_XYZ_RL(  
      U                       Uphi, Vphi,  
      I                       withSigns, myThid )  
       IMPLICIT NONE  
 #include "SIZE.h"  
 #include "EEPARAMS.h"  
 #include "EESUPPORT.h"  
 #include "EXCH.h"  
       _RL Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RL Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RL temp  
       LOGICAL withSigns  
       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  
       end subroutine  
 C ###########################################################  
       SUBROUTINE EXCH_UV_XYZ_RS(  
      U                       Uphi, Vphi,  
      I                       withSigns, myThid )  
       IMPLICIT NONE  
 #include "SIZE.h"  
 #include "EEPARAMS.h"  
 #include "EESUPPORT.h"  
 #include "EXCH.h"  
       _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RL temp  
       LOGICAL withSigns  
       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  
       end subroutine  
 C ###########################################################  
       SUBROUTINE EXCH_XY_RL(  
      U                       phi,  
      I                       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 phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        INTEGER myOLw, myOLe, myOLs, myOLn, myNz
13        INTEGER myThid        _RL     array( 1-myOLw:sNx+myOLe,
14        phi(1,1,1,1)=2*phi(1,1,1,1)       &               1-myOLs:sNy+myOLn,
15        end subroutine       &               myNz, nSx, nSy )
16          INTEGER exchWidthX
17          INTEGER exchWidthY
18          INTEGER cornerMode
19          INTEGER myThid
20    C dummy self dependence (nontrivial so mfef90 doesn't kill it)
21          array(1,1,1,1,1)=2*array(1,1,1,1,1)
22          end subroutine
23    C ###########################################################
24    C      SUBROUTINE EXCH1_RS(
25    C     U                 array,
26    C     I                 myOLw, myOLe, myOLs, myOLn, myNz,
27    C     I                 exchWidthX, exchWidthY,
28    C     I                 cornerMode, myThid )
29    C
30    C      IMPLICIT NONE
31    C#include "SIZE.h"
32    C#include "EEPARAMS.h"
33    C#include "EXCH.h"
34    C      INTEGER myOLw, myOLe, myOLs, myOLn, myNz
35    C      _RS     array( 1-myOLw:sNx+myOLe,
36    C     &               1-myOLs:sNy+myOLn,
37    C     &               myNz, nSx, nSy )
38    C      INTEGER exchWidthX
39    C      INTEGER exchWidthY
40    C      INTEGER cornerMode
41    C      INTEGER myThid
42    C      end subroutine
43  C ###########################################################  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 ###########################################################  
44  C      SUBROUTINE GLOBAL_MAX_R8(  C      SUBROUTINE GLOBAL_MAX_R8(
45  C     U                       maxphi,  C     U                       maxphi,
46  C     I                       myThid )  C     I                       myThid )
# Line 103  C ###################################### Line 64  C ######################################
64  #include "EXCH.h"  #include "EXCH.h"
65        Real*8 sumPhi        Real*8 sumPhi
66        INTEGER myThid        INTEGER myThid
67    C dummy self dependence (nontrivial so mfef90 doesn't kill it)
68        sumPhi=2*sumPhi        sumPhi=2*sumPhi
69        end subroutine        end subroutine
70  C ###########################################################  C ###########################################################
# Line 124  C ###################################### Line 86  C ######################################
86        Real*8  lastResidual        Real*8  lastResidual
87        INTEGER numIters        INTEGER numIters
88        INTEGER myThid        INTEGER myThid
89        cg2d_x(1,1,1,1)=cg2d_b(1,1,1,1)  C dummy self dependence (nontrivial so mfef90 doesn't kill it)
90          cg2d_x(1,1,1,1)=2*cg2d_b(1,1,1,1)
91        end subroutine        end subroutine
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22