/[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.10 by jmc, Mon Apr 16 23:35:58 2007 UTC revision 1.11 by dimitri, Thu Oct 11 01:29:16 2007 UTC
# Line 79  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_SEAICE
83          call exf_set_obcs_x (  OBNa, OBNa0, OBNa1, OBNafile, 's'
84         I                     , fac, first, changed, count0, count1
85         I                     , mycurrenttime, mycurrentiter, mythid )
86          call exf_set_obcs_x (  OBNh, OBNh0, OBNh1, OBNhfile, 's'
87         I                     , fac, first, changed, count0, count1
88         I                     , mycurrenttime, mycurrentiter, mythid )
89    #endif /* ALLOW_SEAICE */
90  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
91        if ( usePTRACERS ) then        if ( usePTRACERS ) then
92         do itracer = 1, PTRACERS_numInUse         do itracer = 1, PTRACERS_numInUse
# Line 91  c     == end of interface == Line 99  c     == end of interface ==
99         enddo         enddo
100        endif        endif
101  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
102  #endif  #endif /* ALLOW_OBCS_NORTH */
103    
104  #ifdef ALLOW_OBCS_SOUTH  #ifdef ALLOW_OBCS_SOUTH
105        call exf_getffieldrec(        call exf_getffieldrec(
# Line 115  c     == end of interface == Line 123  c     == end of interface ==
123        call exf_set_obcs_xz(  OBSs, OBSs0, OBSs1, OBSsfile, 's'        call exf_set_obcs_xz(  OBSs, OBSs0, OBSs1, OBSsfile, 's'
124       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
125       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
126    #ifdef ALLOW_SEAICE
127          call exf_set_obcs_x (  OBSa, OBSa0, OBSa1, OBSafile, 's'
128         I                     , fac, first, changed, count0, count1
129         I                     , mycurrenttime, mycurrentiter, mythid )
130          call exf_set_obcs_x (  OBSh, OBSh0, OBSh1, OBShfile, 's'
131         I                     , fac, first, changed, count0, count1
132         I                     , mycurrenttime, mycurrentiter, mythid )
133    #endif /* ALLOW_SEAICE */
134  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
135        if ( usePTRACERS ) then        if ( usePTRACERS ) then
136         do itracer = 1, PTRACERS_numInUse         do itracer = 1, PTRACERS_numInUse
# Line 128  c     == end of interface == Line 143  c     == end of interface ==
143         enddo         enddo
144        endif        endif
145  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
146  #endif  #endif /* ALLOW_OBCS_SOUTH */
147    
148  #ifdef ALLOW_OBCS_EAST  #ifdef ALLOW_OBCS_EAST
149        call exf_getffieldrec(        call exf_getffieldrec(
# Line 152  c     == end of interface == Line 167  c     == end of interface ==
167        call exf_set_obcs_yz(  OBEs, OBEs0, OBEs1, OBEsfile, 's'        call exf_set_obcs_yz(  OBEs, OBEs0, OBEs1, OBEsfile, 's'
168       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
169       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
170    #ifdef ALLOW_SEAICE
171          call exf_set_obcs_y (  OBEa, OBEa0, OBEa1, OBEafile, 's'
172         I                     , fac, first, changed, count0, count1
173         I                     , mycurrenttime, mycurrentiter, mythid )
174          call exf_set_obcs_y (  OBEh, OBEh0, OBEh1, OBEhfile, 's'
175         I                     , fac, first, changed, count0, count1
176         I                     , mycurrenttime, mycurrentiter, mythid )
177    #endif /* ALLOW_SEAICE */
178  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
179        if ( usePTRACERS ) then        if ( usePTRACERS ) then
180         do itracer = 1, PTRACERS_numInUse         do itracer = 1, PTRACERS_numInUse
# Line 164  c     == end of interface == Line 187  c     == end of interface ==
187         enddo         enddo
188        endif        endif
189  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
190  #endif  #endif /* ALLOW_OBCS_EAST */
191    
192  #ifdef ALLOW_OBCS_WEST  #ifdef ALLOW_OBCS_WEST
193        call exf_getffieldrec(        call exf_getffieldrec(
# Line 188  c     == end of interface == Line 211  c     == end of interface ==
211        call exf_set_obcs_yz(  OBWs, OBWs0, OBWs1, OBWsfile, 's'        call exf_set_obcs_yz(  OBWs, OBWs0, OBWs1, OBWsfile, 's'
212       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
213       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
214    #ifdef ALLOW_SEAICE
215          call exf_set_obcs_y (  OBWa, OBWa0, OBWa1, OBWafile, 's'
216         I                     , fac, first, changed, count0, count1
217         I                     , mycurrenttime, mycurrentiter, mythid )
218          call exf_set_obcs_y (  OBWh, OBWh0, OBWh1, OBWhfile, 's'
219         I                     , fac, first, changed, count0, count1
220         I                     , mycurrenttime, mycurrentiter, mythid )
221    #endif /* ALLOW_SEAICE */
222  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
223        if ( usePTRACERS ) then        if ( usePTRACERS ) then
224         do itracer = 1, PTRACERS_numInUse         do itracer = 1, PTRACERS_numInUse
# Line 200  c     == end of interface == Line 231  c     == end of interface ==
231         enddo         enddo
232        endif        endif
233  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
234  #endif  #endif /* ALLOW_OBCS_WEST */
235    
236  #ifdef ALLOW_OBCS_CONTROL  #ifdef ALLOW_OBCS_CONTROL
237  cgg   WARNING: Assuming North Open Boundary exists and has same  cgg   WARNING: Assuming North Open Boundary exists and has same
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22