/[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.12 by heimbach, Thu Jul 28 19:53:33 2005 UTC revision 1.13 by heimbach, Sat Aug 6 11:02:01 2005 UTC
# Line 419  c--   == end of interface == Line 419  c--   == end of interface ==
419    
420  #endif /* ALLOW_SWFLUX_CONTROL */  #endif /* ALLOW_SWFLUX_CONTROL */
421    
422    #ifdef ALLOW_SWDOWN_CONTROL
423          else if ( grdchkvarindex .eq. 34 ) then
424             il=ilnblnk( xx_swdown_file )
425             write(fname(1:80),'(80a)') ' '
426             write(fname(1:80),'(3a,i10.10)')
427         &        yadmark, xx_swdown_file(1:il),'.',optimcycle
428    
429             call active_read_xy_loc( fname, tmpfld2d, icvrec,
430         &                        doglobalread, ladinit, optimcycle,
431         &                        mythid, dummy)
432    
433             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
434    
435    #endif /* ALLOW_SWDOWN_CONTROL */
436    
437        else        else
438  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
439        endif        endif
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22