/[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.20 by jmc, Tue Oct 9 00:05:45 2007 UTC revision 1.21 by dfer, Thu Jan 17 20:49:27 2008 UTC
# Line 372  c--   == end of interface == Line 372  c--   == end of interface ==
372    
373  #endif /* ALLOW_EFLUXP0_CONTROL */  #endif /* ALLOW_EFLUXP0_CONTROL */
374    
375    #ifdef ALLOW_HFLUXM_CONTROL
376          else if ( grdchkvarindex .eq. 24 ) then
377             il=ilnblnk( xx_hfluxm_file )
378             write(fname(1:80),'(80a)') ' '
379             write(fname(1:80),'(3a,i10.10)')
380         &        yadmark, xx_hfluxm_file(1:il),'.',optimcycle
381             call active_read_xy( fname, tmpfld2d, icvrec,
382         &                        doglobalread, ladinit, optimcycle,
383         &                        mythid, dummy)
384             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
385    #endif /* ALLOW_HFLUXM_CONTROL */
386    
387  #ifdef ALLOW_PRECIP_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
388        else if ( grdchkvarindex .eq. 32 ) then        else if ( grdchkvarindex .eq. 32 ) then
389           il=ilnblnk( xx_precip_file )           il=ilnblnk( xx_precip_file )
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22