/[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.2 by mlosch, Fri Sep 24 12:32:09 2004 UTC revision 1.9 by mlosch, Wed Mar 22 19:21:58 2006 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 "PARAMS.h"
32    # include "PTRACERS_SIZE.h"
33    # include "PTRACERS.h"
34    # include "OBCS_PTRACERS.h"
35    #endif /* ALLOW_PTRACERS */
36    
37  c     == routine arguments ==  c     == routine arguments ==
38    
# Line 38  c     == routine arguments == Line 44  c     == routine arguments ==
44    
45  c     == local variables ==  c     == local variables ==
46    
47    #ifdef ALLOW_EXF
48        logical first, changed        logical first, changed
49        integer count0, count1        integer count0, count1
50          integer year0, year1
51        _RL     fac        _RL     fac
52    #ifdef ALLOW_PTRACERS
53          integer iTracer, i,j,k
54    #endif /* ALLOW_PTRACERS */
55    #endif /* ALLOW_EXF */
56    
57  c     == end of interface ==  c     == end of interface ==
58    
# Line 48  c     == end of interface == Line 60  c     == end of interface ==
60  #ifdef ALLOW_OBCS_NORTH  #ifdef ALLOW_OBCS_NORTH
61        call exf_getffieldrec(        call exf_getffieldrec(
62       I                       obcsNstartdate, obcsNperiod       I                       obcsNstartdate, obcsNperiod
63       O                     , fac, first, changed, count0, count1       I                     , obcsNstartdate1, obcsNstartdate2
64         I                     , .false.
65         O                     , fac, first, changed
66         O                     , count0, count1, year0, year1
67       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
68       &                     )       &                     )
69    
# Line 64  c     == end of interface == Line 79  c     == end of interface ==
79        call exf_set_obcs_xz(  OBNs, OBNs0, OBNs1, OBNsfile, 's'        call exf_set_obcs_xz(  OBNs, OBNs0, OBNs1, OBNsfile, 's'
80       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
81       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
82    #ifdef ALLOW_PTRACERS
83          if ( usePTRACERS ) then
84           do itracer = 1, PTRACERS_numInUse
85            call exf_set_obcs_xz(  OBNptr (1-Olx,1,1,1,iTracer)
86         I                       , OBNptr0(1-Olx,1,1,1,iTracer)
87         I                       , OBNptr1(1-Olx,1,1,1,iTracer)
88         I                       , OBNptrFile(iTracer), 's'
89         I                       , fac, first, changed, count0, count1
90         I                       , mycurrenttime, mycurrentiter, mythid )
91           enddo
92          endif
93    #endif /* ALLOW_PTRACERS */
94  #endif  #endif
95    
96  #ifdef ALLOW_OBCS_SOUTH  #ifdef ALLOW_OBCS_SOUTH
97        call exf_getffieldrec(        call exf_getffieldrec(
98       I                       obcsSstartdate, obcsSperiod       I                       obcsSstartdate, obcsSperiod
99       O                     , fac, first, changed, count0, count1       I                     , obcsSstartdate1, obcsSstartdate2
100         I                     , .false.
101         O                     , fac, first, changed
102         O                     , count0, count1, year0, year1
103       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
104       &                     )       &                     )
105    
# Line 86  c     == end of interface == Line 116  c     == end of interface ==
116       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
117       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
118    
119    #ifdef ALLOW_PTRACERS
120          if ( usePTRACERS ) then
121           do itracer = 1, PTRACERS_numInUse
122            call exf_set_obcs_xz(  OBSptr (1-Olx,1,1,1,iTracer)
123         I                       , OBSptr0(1-Olx,1,1,1,iTracer)
124         I                       , OBSptr1(1-Olx,1,1,1,iTracer)
125         I                       , OBSptrFile(iTracer), 's'
126         I                       , fac, first, changed, count0, count1
127         I                       , mycurrenttime, mycurrentiter, mythid )
128           enddo
129          endif
130    #endif /* ALLOW_PTRACERS */
131  #endif  #endif
132    
133  #ifdef ALLOW_OBCS_EAST  #ifdef ALLOW_OBCS_EAST
134        call exf_getffieldrec(        call exf_getffieldrec(
135       I                       obcsEstartdate, obcsEperiod       I                       obcsEstartdate, obcsEperiod
136       O                     , fac, first, changed, count0, count1       I                     , obcsEstartdate1, obcsEstartdate2
137         I                     , .false.
138         O                     , fac, first, changed
139         O                     , count0, count1, year0, year1
140       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
141       &                     )       &                     )
142    
# Line 107  c     == end of interface == Line 152  c     == end of interface ==
152        call exf_set_obcs_yz(  OBEs, OBEs0, OBEs1, OBEsfile, 's'        call exf_set_obcs_yz(  OBEs, OBEs0, OBEs1, OBEsfile, 's'
153       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
154       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
155    #ifdef ALLOW_PTRACERS
156          if ( usePTRACERS ) then
157           do itracer = 1, PTRACERS_numInUse
158            call exf_set_obcs_yz(  OBEptr (1-Oly,1,1,1,iTracer)
159         I                       , OBEptr0(1-Oly,1,1,1,iTracer)
160         I                       , OBEptr1(1-Oly,1,1,1,iTracer)
161         I                       , OBEptrFile(iTracer), 's'
162         I                       , fac, first, changed, count0, count1
163         I                       , mycurrenttime, mycurrentiter, mythid )
164           enddo
165          endif
166    #endif /* ALLOW_PTRACERS */
167  #endif  #endif
168    
169  #ifdef ALLOW_OBCS_WEST  #ifdef ALLOW_OBCS_WEST
170        call exf_getffieldrec(        call exf_getffieldrec(
171       I                       obcsWstartdate, obcsWperiod       I                       obcsWstartdate, obcsWperiod
172       O                     , fac, first, changed, count0, count1       I                     , obcsWstartdate1, obcsWstartdate2
173         I                     , .false.
174         O                     , fac, first, changed
175         O                     , count0, count1, year0, year1
176       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
177       &                     )       &                     )
178    
# Line 129  c     == end of interface == Line 188  c     == end of interface ==
188        call exf_set_obcs_yz(  OBWs, OBWs0, OBWs1, OBWsfile, 's'        call exf_set_obcs_yz(  OBWs, OBWs0, OBWs1, OBWsfile, 's'
189       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
190       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
191    #ifdef ALLOW_PTRACERS
192          if ( usePTRACERS ) then
193           do itracer = 1, PTRACERS_numInUse
194            call exf_set_obcs_yz(  OBWptr (1-Oly,1,1,1,iTracer)
195         I                       , OBWptr0(1-Oly,1,1,1,iTracer)
196         I                       , OBWptr1(1-Oly,1,1,1,iTracer)
197         I                       , OBWptrFile(iTracer), 's'
198         I                       , fac, first, changed, count0, count1
199         I                       , mycurrenttime, mycurrentiter, mythid )
200           enddo
201          endif
202    #endif /* ALLOW_PTRACERS */
203  #endif  #endif
204    
205  #ifdef ALLOW_OBCS_CONTROL  #ifdef ALLOW_OBCS_CONTROL
# Line 161  cgg    calendar information as other bou Line 231  cgg    calendar information as other bou
231    
232  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
233    
234        end        RETURN
235          END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22