/[MITgcm]/MITgcm/pkg/grdchk/grdchk_getadxx.F
ViewVC logotype

Diff of /MITgcm/pkg/grdchk/grdchk_getadxx.F

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

revision 1.7 by heimbach, Fri Feb 28 02:34:56 2003 UTC revision 1.8 by heimbach, Tue Jun 24 16:08:45 2003 UTC
# Line 226  c--   == end of interface == Line 226  c--   == end of interface ==
226    
227  #endif /* ALLOW_VWIND_CONTROL */  #endif /* ALLOW_VWIND_CONTROL */
228    
229    #ifdef ALLOW_OBCSN_CONTROL
230          else if ( grdchkvarindex .eq. 11 ) then
231             il=ilnblnk( xx_obcsn_file )
232             write(fname(1:80),'(80a)') ' '
233             write(fname(1:80),'(3a,i10.10)')
234         &        yadmark, xx_obcsn_file(1:il),'.',optimcycle
235    
236             call active_read_xz( fname, tmpfldxz, icvrec,
237         &                        doglobalread, ladinit, optimcycle,
238         &                        mythid, dummy)
239    
240             xx_comp = tmpfldxz( itilepos,layer,itile,jtile )
241    
242    #endif /* ALLOW_OBCSN_CONTROL */
243    
244    #ifdef ALLOW_OBCSS_CONTROL
245          else if ( grdchkvarindex .eq. 12 ) then
246             il=ilnblnk( xx_obcss_file )
247             write(fname(1:80),'(80a)') ' '
248             write(fname(1:80),'(3a,i10.10)')
249         &        yadmark, xx_obcss_file(1:il),'.',optimcycle
250    
251             call active_read_xz( fname, tmpfldxz, icvrec,
252         &                        doglobalread, ladinit, optimcycle,
253         &                        mythid, dummy)
254    
255             xx_comp = tmpfldxz( itilepos,layer,itile,jtile )
256    
257    #endif /* ALLOW_OBCSS_CONTROL */
258    
259    #ifdef ALLOW_OBCSW_CONTROL
260          else if ( grdchkvarindex .eq. 13 ) then
261             il=ilnblnk( xx_obcsw_file )
262             write(fname(1:80),'(80a)') ' '
263             write(fname(1:80),'(3a,i10.10)')
264         &        yadmark, xx_obcsw_file(1:il),'.',optimcycle
265    
266             call active_read_yz( fname, tmpfldyz, icvrec,
267         &                        doglobalread, ladinit, optimcycle,
268         &                        mythid, dummy)
269    
270             xx_comp = tmpfldyz( jtilepos,layer,itile,jtile )
271    
272    #endif /* ALLOW_OBCSW_CONTROL */
273    
274    #ifdef ALLOW_OBCSE_CONTROL
275          else if ( grdchkvarindex .eq. 14 ) then
276             il=ilnblnk( xx_obcse_file )
277             write(fname(1:80),'(80a)') ' '
278             write(fname(1:80),'(3a,i10.10)')
279         &        yadmark, xx_obcse_file(1:il),'.',optimcycle
280    
281             call active_read_yz( fname, tmpfldyz, icvrec,
282         &                        doglobalread, ladinit, optimcycle,
283         &                        mythid, dummy)
284    
285             xx_comp = tmpfldyz( jtilepos,layer,itile,jtile )
286    
287    #endif /* ALLOW_OBCSE_CONTROL */
288    
289  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
290        else if ( grdchkvarindex .eq. 17 ) then        else if ( grdchkvarindex .eq. 17 ) then
291           il=ilnblnk( xx_tr1_file )           il=ilnblnk( xx_tr1_file )
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22