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

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

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

revision 1.1 by utke, Wed Jan 18 17:29:35 2006 UTC revision 1.3 by utke, Tue Oct 10 16:13:16 2006 UTC
# Line 1  Line 1 
1  cccC ###########################################################  cccC ###########################################################
 cccc$openad xxx template ../code_shallow_openad/ad_template.active_read_xy_loc.f  
2  ccc      subroutine active_read_xy_loc(  ccc      subroutine active_read_xy_loc(
3  ccc     I                           active_var_file,  ccc     I                           active_var_file,
4  ccc     O                           active_var,  ccc     O                           active_var,
# Line 24  ccc      _RL     dummy (1-olx:snx+olx,1- Line 23  ccc      _RL     dummy (1-olx:snx+olx,1-
23  ccc      dummy(1,1,1,1)=active_var(1,1,1,1)  ccc      dummy(1,1,1,1)=active_var(1,1,1,1)
24  ccc      end subroutine  ccc      end subroutine
25  cccC ###########################################################  cccC ###########################################################
 cccc$openad xxx template ../code_shallow_openad/ad_template.active_read_xyz_loc.f  
26  ccc      subroutine active_read_xyz_loc(  ccc      subroutine active_read_xyz_loc(
27  ccc     I                            active_var_file,  ccc     I                            active_var_file,
28  ccc     O                            active_var,  ccc     O                            active_var,
# Line 48  ccc      _RL     dummy(1-olx:snx+olx,1-o Line 46  ccc      _RL     dummy(1-olx:snx+olx,1-o
46  ccc      dummy(1,1,1,1,1)=active_var(1,1,1,1,1)  ccc      dummy(1,1,1,1,1)=active_var(1,1,1,1,1)
47  ccc      end subroutine  ccc      end subroutine
48  cccC ###########################################################  cccC ###########################################################
 cccc$openad xxx template ../code_shallow_openad/ad_template.active_read_xyz.f  
49  ccc      subroutine active_read_xyz(  ccc      subroutine active_read_xyz(
50  ccc     I                            active_var_file,  ccc     I                            active_var_file,
51  ccc     O                            active_var,  ccc     O                            active_var,
# Line 73  ccc      _RL     dummy(1-olx:snx+olx,1-o Line 70  ccc      _RL     dummy(1-olx:snx+olx,1-o
70  ccc      dummy(1,1,1,1,1)=active_var(1,1,1,1,1)  ccc      dummy(1,1,1,1,1)=active_var(1,1,1,1,1)
71  ccc      end subroutine  ccc      end subroutine
72  cccC ###########################################################  cccC ###########################################################
73  c$openad xxx template ../code_shallow_openad/ad_template.exch_uv_agrid_xy_rs.f  ccc      SUBROUTINE EXCH_UV_AGRID_XY_RS( component1,
74        SUBROUTINE EXCH_UV_AGRID_XY_RS( component1,  ccc     +                                component2,
75       +                                component2,  ccc     +                                withSigns,
76       +                                withSigns,  ccc     +                                myThid )
77       +                                myThid )  ccc      implicit none
78        implicit none  ccc#include "SIZE.h"
79  #include "SIZE.h"  ccc#include "EEPARAMS.h"
80  #include "EEPARAMS.h"  ccc#include "EESUPPORT.h"
81  #include "EESUPPORT.h"  ccc#include "EXCH.h"
82  #include "EXCH.h"  ccc      _RS component1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
83        _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)
84        _RS component2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  ccc      LOGICAL withSigns
85        LOGICAL withSigns  ccc      INTEGER myThid
86        INTEGER myThid  ccc      component1(1,1,1,1)=component2(1,1,1,1)
87        component1(1,1,1,1)=component2(1,1,1,1)  ccc      component2(1,1,1,1)=component1(1,1,1,1)
88        component2(1,1,1,1)=component1(1,1,1,1)  ccc      end subroutine
       end subroutine  
89  C ###########################################################  C ###########################################################
 c$openad xxx template ../code_shallow_openad/ad_template.exch_uv_xy_rs.f  
90        SUBROUTINE EXCH_UV_XY_RS(        SUBROUTINE EXCH_UV_XY_RS(
91       U                       Uphi, Vphi,       U                       Uphi, Vphi,
92       I                       withSigns, myThid )       I                       withSigns, myThid )
# Line 103  c$openad xxx template ../code_shallow_op Line 98  c$openad xxx template ../code_shallow_op
98    
99        _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
100        _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
101          _RS temp
102        LOGICAL withSigns        LOGICAL withSigns
103        INTEGER myThid        INTEGER myThid
104          temp=Uphi(1,1,1,1)
105        Uphi(1,1,1,1)=Vphi(1,1,1,1)        Uphi(1,1,1,1)=Vphi(1,1,1,1)
106        Vphi(1,1,1,1)=Uphi(1,1,1,1)        Vphi(1,1,1,1)=temp
107        end subroutine        end subroutine
108  C ###########################################################  C ###########################################################
 c$openad xxx template ../code_shallow_openad/ad_template.exch_uv_xyz_rl.f  
109        SUBROUTINE EXCH_UV_XYZ_RL(        SUBROUTINE EXCH_UV_XYZ_RL(
110       U                       Uphi, Vphi,       U                       Uphi, Vphi,
111       I                       withSigns, myThid )       I                       withSigns, myThid )
# Line 120  c$openad xxx template ../code_shallow_op Line 116  c$openad xxx template ../code_shallow_op
116  #include "EXCH.h"  #include "EXCH.h"
117        _RL Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
118        _RL Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
119          _RL temp
120        LOGICAL withSigns        LOGICAL withSigns
121        INTEGER myThid        INTEGER myThid
122          temp=Uphi(1,1,1,1,1)
123        Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)        Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)
124        Vphi(1,1,1,1,1)=Uphi(1,1,1,1,1)        Vphi(1,1,1,1,1)=temp
125        end subroutine        end subroutine
126  C ###########################################################  C ###########################################################
 c$openad xxx template ../code_shallow_openad/ad_template.exch_uv_xyz_rs.f  
127        SUBROUTINE EXCH_UV_XYZ_RS(        SUBROUTINE EXCH_UV_XYZ_RS(
128       U                       Uphi, Vphi,       U                       Uphi, Vphi,
129       I                       withSigns, myThid )       I                       withSigns, myThid )
# Line 137  c$openad xxx template ../code_shallow_op Line 134  c$openad xxx template ../code_shallow_op
134  #include "EXCH.h"  #include "EXCH.h"
135        _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
136        _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
137          _RL temp
138        LOGICAL withSigns        LOGICAL withSigns
139        INTEGER myThid        INTEGER myThid
140          temp=Uphi(1,1,1,1,1)
141        Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)        Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)
142        Vphi(1,1,1,1,1)=Uphi(1,1,1,1,1)        Vphi(1,1,1,1,1)=temp
143        end subroutine        end subroutine
144  C ###########################################################  C ###########################################################
 c$openad xxx template ../code_shallow_openad/ad_template.exch_xy_rl.f  
145        SUBROUTINE EXCH_XY_RL(        SUBROUTINE EXCH_XY_RL(
146       U                       phi,       U                       phi,
147       I                       myThid )       I                       myThid )
# Line 157  c$openad xxx template ../code_shallow_op Line 155  c$openad xxx template ../code_shallow_op
155        phi(1,1,1,1)=2*phi(1,1,1,1)        phi(1,1,1,1)=2*phi(1,1,1,1)
156        end subroutine        end subroutine
157  C ###########################################################  C ###########################################################
 c$openad xxx template ../code_shallow_openad/ad_template.exch_xyz_rl.f  
158        SUBROUTINE EXCH_XYZ_RL(        SUBROUTINE EXCH_XYZ_RL(
159       U                       phi,       U                       phi,
160       I                       myThid )       I                       myThid )
# Line 170  c$openad xxx template ../code_shallow_op Line 167  c$openad xxx template ../code_shallow_op
167        INTEGER myThid        INTEGER myThid
168        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)
169        end subroutine        end subroutine
170    cccC ###########################################################
171    ccc      SUBROUTINE EXCH_Z_XY_RS(
172    ccc     U                       phi,
173    ccc     I                       myThid )
174    ccc      IMPLICIT NONE
175    ccc#include "SIZE.h"
176    ccc#include "EEPARAMS.h"
177    ccc#include "EESUPPORT.h"
178    ccc#include "EXCH.h"
179    ccc      _RS phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
180    ccc      INTEGER myThid
181    ccc      phi(1,1,1,1)=2*phi(1,1,1,1)
182    ccc      end subroutine
183  C ###########################################################  C ###########################################################
 c$openad xxx template ../code_shallow_openad/ad_template.exch_z_xy_rs.f  
       SUBROUTINE EXCH_Z_XY_RS(  
      U                       phi,  
      I                       myThid )  
       IMPLICIT NONE  
 #include "SIZE.h"  
 #include "EEPARAMS.h"  
 #include "EESUPPORT.h"  
 #include "EXCH.h"  
       _RS 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 ###########################################################  
 c$openad xxx template ../code_shallow_openad/ad_template.global_max_r8.f  
184        SUBROUTINE GLOBAL_MAX_R8(        SUBROUTINE GLOBAL_MAX_R8(
185       U                       maxphi,       U                       maxphi,
186       I                       myThid )       I                       myThid )
# Line 199  c$openad xxx template ../code_shallow_op Line 194  c$openad xxx template ../code_shallow_op
194        maxPhi=2*maxPhi        maxPhi=2*maxPhi
195        end subroutine        end subroutine
196  C ###########################################################  C ###########################################################
 c$openad xxx template ../code_shallow_openad/ad_template.global_sum_r8.f  
197        SUBROUTINE GLOBAL_SUM_R8(        SUBROUTINE GLOBAL_SUM_R8(
198       U                       sumphi,       U                       sumphi,
199       I                       myThid )       I                       myThid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22