/[MITgcm]/MITgcm/pkg/obcs/obcs_prescribe_read.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_prescribe_read.F

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

revision 1.6 by adcroft, Tue Oct 19 17:52:03 2004 UTC revision 1.7 by mlosch, Mon Oct 10 05:53:48 2005 UTC
# Line 27  c     == global variables == Line 27  c     == global variables ==
27  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
28  # include "exf_param.h"  # include "exf_param.h"
29  #endif  #endif
30    #ifdef ALLOW_PTRACERS.h
31    # include "PTRACERS_SIZE.h"
32    # include "PTRACERS.h"
33    # include "OBCS_PTRACERS.h"
34    #endif /* ALLOW_PTRACERS */
35    
36  c     == routine arguments ==  c     == routine arguments ==
37    
# Line 42  c     == local variables == Line 47  c     == local variables ==
47        integer count0, count1        integer count0, count1
48        integer year0, year1        integer year0, year1
49        _RL     fac        _RL     fac
50    #ifdef ALLOW_PTRACERS
51          integer iTracer, i,j,k
52    #endif /* ALLOW_PTRACERS */
53    
54  c     == end of interface ==  c     == end of interface ==
55    
# Line 68  c     == end of interface == Line 76  c     == end of interface ==
76        call exf_set_obcs_xz(  OBNs, OBNs0, OBNs1, OBNsfile, 's'        call exf_set_obcs_xz(  OBNs, OBNs0, OBNs1, OBNsfile, 's'
77       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
78       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
79    #ifdef ALLOW_PTRACERS
80          if ( usePTRACERS ) then
81           do itracer = 1, PTRACERS_numInUse
82            call exf_set_obcs_xz(  OBNptr (1-Olx,1,1,1,iTracer)
83         I                       , OBNptr0(1-Olx,1,1,1,iTracer)
84         I                       , OBNptr1(1-Olx,1,1,1,iTracer)
85         I                       , OBNptrFile(iTracer), 's'
86         I                       , fac, first, changed, count0, count1
87         I                       , mycurrenttime, mycurrentiter, mythid )
88           enddo
89          endif
90    #endif /* ALLOW_PTRACERS */
91  #endif  #endif
92    
93  #ifdef ALLOW_OBCS_SOUTH  #ifdef ALLOW_OBCS_SOUTH
# Line 93  c     == end of interface == Line 113  c     == end of interface ==
113       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
114       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
115    
116    #ifdef ALLOW_PTRACERS
117          if ( usePTRACERS ) then
118           do itracer = 1, PTRACERS_numInUse
119            call exf_set_obcs_xz(  OBSptr (1-Olx,1,1,1,iTracer)
120         I                       , OBSptr0(1-Olx,1,1,1,iTracer)
121         I                       , OBSptr1(1-Olx,1,1,1,iTracer)
122         I                       , OBSptrFile(iTracer), 's'
123         I                       , fac, first, changed, count0, count1
124         I                       , mycurrenttime, mycurrentiter, mythid )
125           enddo
126          endif
127    #endif /* ALLOW_PTRACERS */
128  #endif  #endif
129    
130  #ifdef ALLOW_OBCS_EAST  #ifdef ALLOW_OBCS_EAST
# Line 117  c     == end of interface == Line 149  c     == end of interface ==
149        call exf_set_obcs_yz(  OBEs, OBEs0, OBEs1, OBEsfile, 's'        call exf_set_obcs_yz(  OBEs, OBEs0, OBEs1, OBEsfile, 's'
150       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
151       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
152    #ifdef ALLOW_PTRACERS
153          if ( usePTRACERS ) then
154           do itracer = 1, PTRACERS_numInUse
155            call exf_set_obcs_yz(  OBEptr (1-Oly,1,1,1,iTracer)
156         I                       , OBEptr0(1-Oly,1,1,1,iTracer)
157         I                       , OBEptr1(1-Oly,1,1,1,iTracer)
158         I                       , OBEptrFile(iTracer), 's'
159         I                       , fac, first, changed, count0, count1
160         I                       , mycurrenttime, mycurrentiter, mythid )
161           enddo
162          endif
163    #endif /* ALLOW_PTRACERS */
164  #endif  #endif
165    
166  #ifdef ALLOW_OBCS_WEST  #ifdef ALLOW_OBCS_WEST
# Line 142  c     == end of interface == Line 185  c     == end of interface ==
185        call exf_set_obcs_yz(  OBWs, OBWs0, OBWs1, OBWsfile, 's'        call exf_set_obcs_yz(  OBWs, OBWs0, OBWs1, OBWsfile, 's'
186       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
187       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
188    #ifdef ALLOW_PTRACERS
189          if ( usePTRACERS ) then
190           do itracer = 1, PTRACERS_numInUse
191            call exf_set_obcs_yz(  OBWptr (1-Oly,1,1,1,iTracer)
192         I                       , OBWptr0(1-Oly,1,1,1,iTracer)
193         I                       , OBWptr1(1-Oly,1,1,1,iTracer)
194         I                       , OBWptrFile(iTracer), 's'
195         I                       , fac, first, changed, count0, count1
196         I                       , mycurrenttime, mycurrentiter, mythid )
197           enddo
198          endif
199    #endif /* ALLOW_PTRACERS */
200  #endif  #endif
201    
202  #ifdef ALLOW_OBCS_CONTROL  #ifdef ALLOW_OBCS_CONTROL
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22