/[MITgcm]/MITgcm/pkg/exf/exf_set_obcs.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_set_obcs.F

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

revision 1.1 by heimbach, Mon May 14 22:08:41 2001 UTC revision 1.2 by heimbach, Thu Feb 7 20:00:09 2002 UTC
# Line 28  c     == global variables == Line 28  c     == global variables ==
28  #include "exf_param.h"  #include "exf_param.h"
29  #include "exf_constants.h"  #include "exf_constants.h"
30    
 cph      common /exfl_obcs_r/  
 cph     &                    obcs_xz_0, obcs_xz_1,  
 cph     &                    obcs_yz_0, obcs_yz_1  
       _RL obcs_xz_0(1-olx:snx+olx,Nr,nsx,nsy)  
       _RL obcs_xz_1(1-olx:snx+olx,Nr,nsx,nsy)  
       _RL obcs_yz_0(1-oly:sny+oly,Nr,nsx,nsy)  
       _RL obcs_yz_1(1-oly:sny+oly,Nr,nsx,nsy)  
   
31  c     == routine arguments ==  c     == routine arguments ==
32    
33        _RL obcs_fld_xz(1-olx:snx+olx,Nr,nsx,nsy)        _RL obcs_fld_xz(1-olx:snx+olx,Nr,nsx,nsy)
# Line 53  c     == routine arguments == Line 45  c     == routine arguments ==
45  c     == local variables ==  c     == local variables ==
46    
47        integer bi, bj        integer bi, bj
48        integer i, j, k        integer i, k
49    
50          _RL obcs_xz_0(1-olx:snx+olx,Nr,nsx,nsy)
51          _RL obcs_xz_1(1-olx:snx+olx,Nr,nsx,nsy)
52    
53  c     == end of interface ==  c     == end of interface ==
54    
55  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
56        if ( first ) then        if ( first ) then
57  #endif  #endif
58          call mdsreadfieldxz( obcs_file, exf_iprec, exf_yftype, 1          call mdsreadfieldxz( obcs_file, exf_iprec, exf_yftype, Nr
59       &                     , obcs_xz_1, count0, mythid       &                     , obcs_xz_1, count0, mythid
60       &                     )       &                     )
61  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
# Line 72  c     == end of interface == Line 67  c     == end of interface ==
67  #endif  #endif
68          call exf_swapffields_xz( obcs_xz_0, obcs_xz_1, mythid )          call exf_swapffields_xz( obcs_xz_0, obcs_xz_1, mythid )
69    
70          call mdsreadfieldxz( obcs_file, exf_iprec, exf_yftype, 1          call mdsreadfieldxz( obcs_file, exf_iprec, exf_yftype, Nr
71       &                     , obcs_xz_1, count1, mythid       &                     , obcs_xz_1, count1, mythid
72       &                     )       &                     )
73  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
# Line 123  c     == global variables == Line 118  c     == global variables ==
118  #include "exf_param.h"  #include "exf_param.h"
119  #include "exf_constants.h"  #include "exf_constants.h"
120    
 cph      common /exfl_obcs_r/  
 cph     &                    obcs_xz_0, obcs_xz_1,  
 cph     &                    obcs_yz_0, obcs_yz_1  
       _RL obcs_xz_0(1-olx:snx+olx,Nr,nsx,nsy)  
       _RL obcs_xz_1(1-olx:snx+olx,Nr,nsx,nsy)  
       _RL obcs_yz_0(1-oly:sny+oly,Nr,nsx,nsy)  
       _RL obcs_yz_1(1-oly:sny+oly,Nr,nsx,nsy)  
   
121  c     == routine arguments ==  c     == routine arguments ==
122    
123        _RL obcs_fld_yz(1-oly:sny+oly,Nr,nsx,nsy)        _RL obcs_fld_yz(1-oly:sny+oly,Nr,nsx,nsy)
# Line 148  c     == routine arguments == Line 135  c     == routine arguments ==
135  c     == local variables ==  c     == local variables ==
136    
137        integer bi, bj        integer bi, bj
138        integer i, j, k        integer j, k
139    
140          _RL obcs_yz_0(1-oly:sny+oly,Nr,nsx,nsy)
141          _RL obcs_yz_1(1-oly:sny+oly,Nr,nsx,nsy)
142    
143  c     == end of interface ==  c     == end of interface ==
144    
145  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
146        if ( first ) then        if ( first ) then
147  #endif  #endif
148          call mdsreadfieldyz( obcs_file, exf_iprec, exf_yftype, 1          call mdsreadfieldyz( obcs_file, exf_iprec, exf_yftype, Nr
149       &                     , obcs_yz_1, count0, mythid       &                     , obcs_yz_1, count0, mythid
150       &                     )       &                     )
151  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
# Line 167  c     == end of interface == Line 157  c     == end of interface ==
157  #endif  #endif
158          call exf_swapffields_yz( obcs_yz_0, obcs_yz_1, mythid )          call exf_swapffields_yz( obcs_yz_0, obcs_yz_1, mythid )
159    
160          call mdsreadfieldyz( obcs_file, exf_iprec, exf_yftype, 1          call mdsreadfieldyz( obcs_file, exf_iprec, exf_yftype, Nr
161       &                     , obcs_yz_1, count1, mythid       &                     , obcs_yz_1, count1, mythid
162       &                     )       &                     )
163  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
# Line 213  c     == global variables == Line 203  c     == global variables ==
203  #include "EEPARAMS.h"  #include "EEPARAMS.h"
204  #include "SIZE.h"  #include "SIZE.h"
205    
 cph      common /exfl_obcs_r/  
 cph     &                    obcs_xz_0, obcs_xz_1,  
 cph     &                    obcs_yz_0, obcs_yz_1  
       _RL obcs_xz_0(1-olx:snx+olx,Nr,nsx,nsy)  
       _RL obcs_xz_1(1-olx:snx+olx,Nr,nsx,nsy)  
       _RL obcs_yz_0(1-oly:sny+oly,Nr,nsx,nsy)  
       _RL obcs_yz_1(1-oly:sny+oly,Nr,nsx,nsy)  
   
206  c     == routine arguments ==  c     == routine arguments ==
207    
208        integer mythid        integer mythid
# Line 230  c     == routine arguments == Line 212  c     == routine arguments ==
212  c     == local variables ==  c     == local variables ==
213    
214        integer bi, bj        integer bi, bj
215        integer i, j, k        integer i, k
216    
217          _RL obcs_xz_0(1-olx:snx+olx,Nr,nsx,nsy)
218          _RL obcs_xz_1(1-olx:snx+olx,Nr,nsx,nsy)
219    
220  c     == end of interface ==  c     == end of interface ==
221    
# Line 272  c     == global variables == Line 257  c     == global variables ==
257  #include "EEPARAMS.h"  #include "EEPARAMS.h"
258  #include "SIZE.h"  #include "SIZE.h"
259    
 cph      common /exfl_obcs_r/  
 cph     &                    obcs_xz_0, obcs_xz_1,  
 cph     &                    obcs_yz_0, obcs_yz_1  
       _RL obcs_xz_0(1-olx:snx+olx,Nr,nsx,nsy)  
       _RL obcs_xz_1(1-olx:snx+olx,Nr,nsx,nsy)  
       _RL obcs_yz_0(1-oly:sny+oly,Nr,nsx,nsy)  
       _RL obcs_yz_1(1-oly:sny+oly,Nr,nsx,nsy)  
   
260  c     == routine arguments ==  c     == routine arguments ==
261    
262        integer mythid        integer mythid
263    
264          _RL obcs_yz_0(1-oly:sny+oly,Nr,nsx,nsy)
265          _RL obcs_yz_1(1-oly:sny+oly,Nr,nsx,nsy)
266    
267  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
268    
269  c     == local variables ==  c     == local variables ==
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22