/[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.14 by heimbach, Wed Aug 31 00:03:44 2005 UTC revision 1.15 by heimbach, Fri May 12 02:17:03 2006 UTC
# Line 288  c--   == end of interface == Line 288  c--   == end of interface ==
288    
289  #endif /* ALLOW_OBCSE_CONTROL */  #endif /* ALLOW_OBCSE_CONTROL */
290    
291    #ifdef ALLOW_DIFFKR_CONTROL
292          else if ( grdchkvarindex .eq. 15 ) then
293             il=ilnblnk( xx_diffkr_file )
294             write(fname(1:80),'(80a)') ' '
295             write(fname(1:80),'(3a,i10.10)')
296         &        yadmark, xx_diffkr_file(1:il),'.',optimcycle
297    
298             call active_read_xyz_loc( fname, tmpfld3d, 1,
299         &                         doglobalread, ladinit, optimcycle,
300         &                         mythid, dummy)
301    
302             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
303    
304    #endif /* ALLOW_DIFFKR_CONTROL */
305    
306    #ifdef ALLOW_KAPGM_CONTROL
307          else if ( grdchkvarindex .eq. 16 ) then
308             il=ilnblnk( xx_kapgm_file )
309             write(fname(1:80),'(80a)') ' '
310             write(fname(1:80),'(3a,i10.10)')
311         &        yadmark, xx_kapgm_file(1:il),'.',optimcycle
312    
313             call active_read_xyz_loc( fname, tmpfld3d, 1,
314         &                         doglobalread, ladinit, optimcycle,
315         &                         mythid, dummy)
316    
317             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
318    
319    #endif /* ALLOW_KAPGM_CONTROL */
320    
321  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
322        else if ( grdchkvarindex .eq. 17 ) then        else if ( grdchkvarindex .eq. 17 ) then
323           il=ilnblnk( xx_tr1_file )           il=ilnblnk( xx_tr1_file )
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22