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

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

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

Revision 1.1 - (hide annotations) (download)
Wed Jan 18 17:29:35 2006 UTC (20 years, 9 months ago) by utke
Branch: MAIN 
deal with external routines
1 utke 1.1 cccC ###########################################################
2     cccc$openad xxx template ../code_shallow_openad/ad_template.active_read_xy_loc.f
3     ccc subroutine active_read_xy_loc(
4     ccc I active_var_file,
5     ccc O active_var,
6     ccc I irec,
7     ccc I doglobalread,
8     ccc I lAdInit,
9     ccc I myOptimIter,
10     ccc I mythid
11     ccc I , dummy
12     ccc & )
13     ccc implicit none
14     ccc#include "EEPARAMS.h"
15     ccc#include "SIZE.h"
16     ccc character*(*) active_var_file
17     ccc _RL active_var(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
18     ccc integer irec
19     ccc integer myOptimIter
20     ccc integer mythid
21     ccc logical doglobalread
22     ccc logical lAdInit
23     ccc _RL dummy (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
24     ccc dummy(1,1,1,1)=active_var(1,1,1,1)
25     ccc end subroutine
26     cccC ###########################################################
27     cccc$openad xxx template ../code_shallow_openad/ad_template.active_read_xyz_loc.f
28     ccc subroutine active_read_xyz_loc(
29     ccc I active_var_file,
30     ccc O active_var,
31     ccc I irec,
32     ccc I doglobalread,
33     ccc I lAdInit,
34     ccc I myOptimIter,
35     ccc I mythid
36     ccc I , dummy
37     ccc & )
38     ccc#include "EEPARAMS.h"
39     ccc#include "SIZE.h"
40     ccc character*(*) active_var_file
41     ccc _RL active_var(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
42     ccc integer irec
43     ccc integer myOptimIter
44     ccc integer mythid
45     ccc logical doglobalread
46     ccc logical lAdInit
47     ccc _RL dummy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
48     ccc dummy(1,1,1,1,1)=active_var(1,1,1,1,1)
49     ccc end subroutine
50     cccC ###########################################################
51     cccc$openad xxx template ../code_shallow_openad/ad_template.active_read_xyz.f
52     ccc subroutine active_read_xyz(
53     ccc I active_var_file,
54     ccc O active_var,
55     ccc I irec,
56     ccc I doglobalread,
57     ccc I lAdInit,
58     ccc I myOptimIter,
59     ccc I mythid
60     ccc I , dummy
61     ccc & )
62     ccc implicit none
63     ccc#include "EEPARAMS.h"
64     ccc#include "SIZE.h"
65     ccc character*(*) active_var_file
66     ccc _RL active_var(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
67     ccc integer irec
68     ccc integer myOptimIter
69     ccc integer mythid
70     ccc logical doglobalread
71     ccc logical lAdInit
72     ccc _RL dummy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
73     ccc dummy(1,1,1,1,1)=active_var(1,1,1,1,1)
74     ccc end subroutine
75     cccC ###########################################################
76     c$openad xxx template ../code_shallow_openad/ad_template.exch_uv_agrid_xy_rs.f
77     SUBROUTINE EXCH_UV_AGRID_XY_RS( component1,
78     + component2,
79     + withSigns,
80     + myThid )
81     implicit none
82     #include "SIZE.h"
83     #include "EEPARAMS.h"
84     #include "EESUPPORT.h"
85     #include "EXCH.h"
86     _RS component1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87     _RS component2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
88     LOGICAL withSigns
89     INTEGER myThid
90     component1(1,1,1,1)=component2(1,1,1,1)
91     component2(1,1,1,1)=component1(1,1,1,1)
92     end subroutine
93     C ###########################################################
94     c$openad xxx template ../code_shallow_openad/ad_template.exch_uv_xy_rs.f
95     SUBROUTINE EXCH_UV_XY_RS(
96     U Uphi, Vphi,
97     I withSigns, myThid )
98     IMPLICIT NONE
99     #include "SIZE.h"
100     #include "EEPARAMS.h"
101     #include "EESUPPORT.h"
102     #include "EXCH.h"
103    
104     _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
105     _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
106     LOGICAL withSigns
107     INTEGER myThid
108     Uphi(1,1,1,1)=Vphi(1,1,1,1)
109     Vphi(1,1,1,1)=Uphi(1,1,1,1)
110     end subroutine
111     C ###########################################################
112     c$openad xxx template ../code_shallow_openad/ad_template.exch_uv_xyz_rl.f
113     SUBROUTINE EXCH_UV_XYZ_RL(
114     U Uphi, Vphi,
115     I withSigns, myThid )
116     IMPLICIT NONE
117     #include "SIZE.h"
118     #include "EEPARAMS.h"
119     #include "EESUPPORT.h"
120     #include "EXCH.h"
121     _RL Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
122     _RL Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
123     LOGICAL withSigns
124     INTEGER myThid
125     Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)
126     Vphi(1,1,1,1,1)=Uphi(1,1,1,1,1)
127     end subroutine
128     C ###########################################################
129     c$openad xxx template ../code_shallow_openad/ad_template.exch_uv_xyz_rs.f
130     SUBROUTINE EXCH_UV_XYZ_RS(
131     U Uphi, Vphi,
132     I withSigns, myThid )
133     IMPLICIT NONE
134     #include "SIZE.h"
135     #include "EEPARAMS.h"
136     #include "EESUPPORT.h"
137     #include "EXCH.h"
138     _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
139     _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
140     LOGICAL withSigns
141     INTEGER myThid
142     Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)
143     Vphi(1,1,1,1,1)=Uphi(1,1,1,1,1)
144     end subroutine
145     C ###########################################################
146     c$openad xxx template ../code_shallow_openad/ad_template.exch_xy_rl.f
147     SUBROUTINE EXCH_XY_RL(
148     U phi,
149     I myThid )
150     IMPLICIT NONE
151     #include "SIZE.h"
152     #include "EEPARAMS.h"
153     #include "EESUPPORT.h"
154     #include "EXCH.h"
155     _RL phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
156     INTEGER myThid
157     phi(1,1,1,1)=2*phi(1,1,1,1)
158     end subroutine
159     C ###########################################################
160     c$openad xxx template ../code_shallow_openad/ad_template.exch_xyz_rl.f
161     SUBROUTINE EXCH_XYZ_RL(
162     U phi,
163     I myThid )
164     IMPLICIT NONE
165     #include "SIZE.h"
166     #include "EEPARAMS.h"
167     #include "EESUPPORT.h"
168     #include "EXCH.h"
169     _RL phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
170     INTEGER myThid
171     phi(1,1,1,1,1)=2*phi(1,1,1,1,1)
172     end subroutine
173     C ###########################################################
174     c$openad xxx template ../code_shallow_openad/ad_template.exch_z_xy_rs.f
175     SUBROUTINE EXCH_Z_XY_RS(
176     U phi,
177     I myThid )
178     IMPLICIT NONE
179     #include "SIZE.h"
180     #include "EEPARAMS.h"
181     #include "EESUPPORT.h"
182     #include "EXCH.h"
183     _RS phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
184     INTEGER myThid
185     phi(1,1,1,1)=2*phi(1,1,1,1)
186     end subroutine
187     C ###########################################################
188     c$openad xxx template ../code_shallow_openad/ad_template.global_max_r8.f
189     SUBROUTINE GLOBAL_MAX_R8(
190     U maxphi,
191     I myThid )
192     IMPLICIT NONE
193     #include "SIZE.h"
194     #include "EEPARAMS.h"
195     #include "EESUPPORT.h"
196     #include "EXCH.h"
197     Real*8 maxPhi
198     INTEGER myThid
199     maxPhi=2*maxPhi
200     end subroutine
201     C ###########################################################
202     c$openad xxx template ../code_shallow_openad/ad_template.global_sum_r8.f
203     SUBROUTINE GLOBAL_SUM_R8(
204     U sumphi,
205     I myThid )
206     IMPLICIT NONE
207     #include "SIZE.h"
208     #include "EEPARAMS.h"
209     #include "EESUPPORT.h"
210     #include "EXCH.h"
211     Real*8 sumPhi
212     INTEGER myThid
213     sumPhi=2*sumPhi
214     end subroutine
215     C ###########################################################
  ViewVC Help
Powered by ViewVC 1.1.22