/[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.2 by utke, Wed Aug 27 20:06:53 2008 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 EXCH_UV_XY_RS(
3       U                       Uphi, Vphi,       U                       Uphi, Vphi,
# Line 167  C ###################################### Line 79  C ######################################
79        INTEGER myThid        INTEGER myThid
80        phi(1,1,1,1,1)=2*phi(1,1,1,1,1)        phi(1,1,1,1,1)=2*phi(1,1,1,1,1)
81        end subroutine        end subroutine
82    CC ###########################################################
83    C      SUBROUTINE GLOBAL_MAX_R8(
84    C     U                       maxphi,
85    C     I                       myThid )
86    C      IMPLICIT NONE
87    C#include "SIZE.h"
88    C#include "EEPARAMS.h"
89    C#include "EESUPPORT.h"
90    C#include "EXCH.h"
91    C      Real*8 maxPhi
92    C      INTEGER myThid
93    C      maxPhi=2*maxPhi
94    C      end subroutine
95  C ###########################################################  C ###########################################################
96        SUBROUTINE GLOBAL_MAX_R8(        SUBROUTINE GLOBAL_SUM_R8(
97       U                       maxphi,       U                       sumphi,
98       I                       myThid )       I                       myThid )
99        IMPLICIT NONE        IMPLICIT NONE
100  #include "SIZE.h"  #include "SIZE.h"
101  #include "EEPARAMS.h"  #include "EEPARAMS.h"
102  #include "EESUPPORT.h"  #include "EESUPPORT.h"
103  #include "EXCH.h"  #include "EXCH.h"
104        Real*8 maxPhi        Real*8 sumPhi
105        INTEGER myThid        INTEGER myThid
106        maxPhi=2*maxPhi        sumPhi=2*sumPhi
107        end subroutine        end subroutine
108  C ###########################################################  C ###########################################################
109        SUBROUTINE GLOBAL_SUM_R8(        SUBROUTINE CG2D(
110       U                       sumphi,       I                cg2d_b,
111       I                       myThid )       U                cg2d_x,
112         O                firstResidual,
113         O                lastResidual,
114         U                numIters,
115         I                myThid )
116        IMPLICIT NONE        IMPLICIT NONE
117  #include "SIZE.h"  #include "SIZE.h"
118  #include "EEPARAMS.h"  #include "EEPARAMS.h"
119  #include "EESUPPORT.h"  #include "PARAMS.h"
120  #include "EXCH.h"  #include "CG2D.h"
121        Real*8 sumPhi        Real*8  cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
122          Real*8  cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
123          Real*8  firstResidual
124          Real*8  lastResidual
125          INTEGER numIters
126        INTEGER myThid        INTEGER myThid
127        sumPhi=2*sumPhi        cg2d_x(1,1,1,1)=cg2d_b(1,1,1,1)
128        end subroutine        end subroutine
 C ###########################################################  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22