/[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.1 by utke, Tue Nov 20 15:20:57 2007 UTC revision 1.4 by utke, Sun May 23 14:41:22 2010 UTC
# Line 1  Line 1 
 cccC ###########################################################  
 ccc      subroutine active_read_xy_loc(  
 ccc     I                           active_var_file,  
 ccc     O                           active_var,  
 ccc     I                           irec,  
 ccc     I                           doglobalread,  
 ccc     I                           lAdInit,  
 ccc     I                           myOptimIter,  
 ccc     I                           mythid  
 ccc     I                         , dummy  
 ccc     &                         )  
 ccc      implicit none  
 ccc#include "EEPARAMS.h"  
 ccc#include "SIZE.h"  
 ccc      character*(*) active_var_file  
 ccc      _RL     active_var(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
 ccc      integer irec  
 ccc      integer myOptimIter  
 ccc      integer mythid  
 ccc      logical doglobalread  
 ccc      logical lAdInit  
 ccc      _RL     dummy (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
 ccc      dummy(1,1,1,1)=active_var(1,1,1,1)  
 ccc      end subroutine  
 cccC ###########################################################  
 ccc      subroutine active_read_xyz_loc(  
 ccc     I                            active_var_file,  
 ccc     O                            active_var,  
 ccc     I                            irec,  
 ccc     I                            doglobalread,  
 ccc     I                            lAdInit,  
 ccc     I                            myOptimIter,  
 ccc     I                            mythid  
 ccc     I                         , dummy  
 ccc     &                           )  
 ccc#include "EEPARAMS.h"  
 ccc#include "SIZE.h"  
 ccc      character*(*) active_var_file  
 ccc      _RL active_var(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
 ccc      integer irec  
 ccc      integer myOptimIter  
 ccc      integer mythid  
 ccc      logical doglobalread  
 ccc      logical lAdInit  
 ccc      _RL     dummy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
 ccc      dummy(1,1,1,1,1)=active_var(1,1,1,1,1)  
 ccc      end subroutine  
 cccC ###########################################################  
 ccc      subroutine active_read_xyz(  
 ccc     I                            active_var_file,  
 ccc     O                            active_var,  
 ccc     I                            irec,  
 ccc     I                            doglobalread,  
 ccc     I                            lAdInit,  
 ccc     I                            myOptimIter,  
 ccc     I                            mythid  
 ccc     I                         , dummy  
 ccc     &                           )  
 ccc      implicit none  
 ccc#include "EEPARAMS.h"  
 ccc#include "SIZE.h"  
 ccc      character*(*) active_var_file  
 ccc      _RL active_var(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
 ccc      integer irec  
 ccc      integer myOptimIter  
 ccc      integer mythid  
 ccc      logical doglobalread  
 ccc      logical lAdInit  
 ccc      _RL     dummy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
 ccc      dummy(1,1,1,1,1)=active_var(1,1,1,1,1)  
 ccc      end subroutine  
 cccC ###########################################################  
 ccc      SUBROUTINE EXCH_UV_AGRID_XY_RS( component1,  
 ccc     +                                component2,  
 ccc     +                                withSigns,  
 ccc     +                                myThid )  
 ccc      implicit none  
 ccc#include "SIZE.h"  
 ccc#include "EEPARAMS.h"  
 ccc#include "EESUPPORT.h"  
 ccc#include "EXCH.h"  
 ccc      _RS component1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
 ccc      _RS component2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
 ccc      LOGICAL withSigns  
 ccc      INTEGER myThid  
 ccc      component1(1,1,1,1)=component2(1,1,1,1)  
 ccc      component2(1,1,1,1)=component1(1,1,1,1)  
 ccc      end subroutine  
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          _RL     array( 1-myOLw:sNx+myOLe,
14         &               1-myOLs:sNy+myOLn,
15         &               myNz, nSx, nSy )
16          INTEGER exchWidthX
17          INTEGER exchWidthY
18          INTEGER cornerMode
19        INTEGER myThid        INTEGER myThid
       phi(1,1,1,1)=2*phi(1,1,1,1)  
20        end subroutine        end subroutine
21  C ###########################################################  C ###########################################################
22        SUBROUTINE EXCH_XYZ_RL(  C      SUBROUTINE EXCH1_RS(
23       U                       phi,  C     U                 array,
24       I                       myThid )  C     I                 myOLw, myOLe, myOLs, myOLn, myNz,
25        IMPLICIT NONE  C     I                 exchWidthX, exchWidthY,
26  #include "SIZE.h"  C     I                 cornerMode, myThid )
27  #include "EEPARAMS.h"  C
28  #include "EESUPPORT.h"  C      IMPLICIT NONE
29  #include "EXCH.h"  C#include "SIZE.h"
30        _RL phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  C#include "EEPARAMS.h"
31        INTEGER myThid  C#include "EXCH.h"
32        phi(1,1,1,1,1)=2*phi(1,1,1,1,1)  C      INTEGER myOLw, myOLe, myOLs, myOLn, myNz
33        end subroutine  C      _RS     array( 1-myOLw:sNx+myOLe,
34    C     &               1-myOLs:sNy+myOLn,
35    C     &               myNz, nSx, nSy )
36    C      INTEGER exchWidthX
37    C      INTEGER exchWidthY
38    C      INTEGER cornerMode
39    C      INTEGER myThid
40    C      end subroutine
41    C ###########################################################
42    C      SUBROUTINE GLOBAL_MAX_R8(
43    C     U                       maxphi,
44    C     I                       myThid )
45    C      IMPLICIT NONE
46    C#include "SIZE.h"
47    C#include "EEPARAMS.h"
48    C#include "EESUPPORT.h"
49    C#include "EXCH.h"
50    C      Real*8 maxPhi
51    C      INTEGER myThid
52    C      maxPhi=2*maxPhi
53    C      end subroutine
54  C ###########################################################  C ###########################################################
55        SUBROUTINE GLOBAL_MAX_R8(        SUBROUTINE GLOBAL_SUM_R8(
56       U                       maxphi,       U                       sumphi,
57       I                       myThid )       I                       myThid )
58        IMPLICIT NONE        IMPLICIT NONE
59  #include "SIZE.h"  #include "SIZE.h"
60  #include "EEPARAMS.h"  #include "EEPARAMS.h"
61  #include "EESUPPORT.h"  #include "EESUPPORT.h"
62  #include "EXCH.h"  #include "EXCH.h"
63        Real*8 maxPhi        Real*8 sumPhi
64        INTEGER myThid        INTEGER myThid
65        maxPhi=2*maxPhi        sumPhi=2*sumPhi
66        end subroutine        end subroutine
67  C ###########################################################  C ###########################################################
68        SUBROUTINE GLOBAL_SUM_R8(        SUBROUTINE CG2D(
69       U                       sumphi,       I                cg2d_b,
70       I                       myThid )       U                cg2d_x,
71         O                firstResidual,
72         O                lastResidual,
73         U                numIters,
74         I                myThid )
75        IMPLICIT NONE        IMPLICIT NONE
76  #include "SIZE.h"  #include "SIZE.h"
77  #include "EEPARAMS.h"  #include "EEPARAMS.h"
78  #include "EESUPPORT.h"  #include "PARAMS.h"
79  #include "EXCH.h"  #include "CG2D.h"
80        Real*8 sumPhi        Real*8  cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
81          Real*8  cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
82          Real*8  firstResidual
83          Real*8  lastResidual
84          INTEGER numIters
85        INTEGER myThid        INTEGER myThid
86        sumPhi=2*sumPhi        cg2d_x(1,1,1,1)=cg2d_b(1,1,1,1)
87        end subroutine        end subroutine
 C ###########################################################  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22