/[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.23 by gforget, Wed Jun 11 19:31:41 2008 UTC revision 1.24 by heimbach, Wed Oct 14 20:10:13 2009 UTC
# Line 399  c--   == end of interface == Line 399  c--   == end of interface ==
399           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
400  #endif /* ALLOW_HFLUXM_CONTROL */  #endif /* ALLOW_HFLUXM_CONTROL */
401    
402    #ifdef ALLOW_GEN2D_CONTROL
403          else if ( grdchkvarindex .eq. 30 ) then
404             il=ilnblnk( xx_gen2d_file )
405             write(fname(1:80),'(80a)') ' '
406             write(fname(1:80),'(3a,i10.10)')
407         &        yadmark, xx_gen2d_file(1:il),'.',optimcycle
408             call active_read_xy( fname, tmpfld2d, icvrec,
409         &                        doglobalread, ladinit, optimcycle,
410         &                        mythid, dummy)
411             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
412    #endif /* ALLOW_GEN2D_CONTROL */
413    
414    #ifdef ALLOW_GEN3D_CONTROL
415          else if ( grdchkvarindex .eq. 31 ) then
416             il=ilnblnk( xx_gen3d_file )
417             write(fname(1:80),'(80a)') ' '
418             write(fname(1:80),'(3a,i10.10)')
419         &        yadmark, xx_gen3d_file(1:il),'.',optimcycle
420    
421             call active_read_xyz( fname, tmpfld3d, 1,
422         &                         doglobalread, ladinit, optimcycle,
423         &                         mythid, dummy)
424             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
425    #endif /* ALLOW_GEN3D_CONTROL */
426    
427  #ifdef ALLOW_PRECIP_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
428        else if ( grdchkvarindex .eq. 32 ) then        else if ( grdchkvarindex .eq. 32 ) then
429           il=ilnblnk( xx_precip_file )           il=ilnblnk( xx_precip_file )
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22