/[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.21 by dfer, Thu Jan 17 20:49:27 2008 UTC revision 1.22 by gforget, Sat Feb 2 02:36:50 2008 UTC
# Line 291  c--   == end of interface == Line 291  c--   == end of interface ==
291    
292  #endif /* ALLOW_KAPGM_CONTROL */  #endif /* ALLOW_KAPGM_CONTROL */
293    
294    #ifdef ALLOW_KAPREDI_CONTROL
295          else if ( grdchkvarindex .eq. 16 ) then
296             il=ilnblnk( xx_kapredi_file )
297             write(fname(1:80),'(80a)') ' '
298             write(fname(1:80),'(3a,i10.10)')
299         &        yadmark, xx_kapredi_file(1:il),'.',optimcycle
300    
301             call active_read_xyz( fname, tmpfld3d, 1,
302         &                         doglobalread, ladinit, optimcycle,
303         &                         mythid, dummy)
304    
305             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
306    
307    #endif /* ALLOW_KAPREDI_CONTROL */
308    
309  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
310        else if ( grdchkvarindex .eq. 17 ) then        else if ( grdchkvarindex .eq. 17 ) then
311           il=ilnblnk( xx_tr1_file )           il=ilnblnk( xx_tr1_file )
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22