/[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.18 by heimbach, Mon May 14 21:53:12 2007 UTC revision 1.19 by heimbach, Thu Jun 21 04:06:21 2007 UTC
# Line 480  c--   == end of interface == Line 480  c--   == end of interface ==
480           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
481  #endif /* ALLOW_RUNOFF_CONTROL */  #endif /* ALLOW_RUNOFF_CONTROL */
482    
483    #ifdef ALLOW_SIAREA_CONTROL
484          else if ( grdchkvarindex .eq. 41 ) then
485             il=ilnblnk( xx_siarea_file )
486             write(fname(1:80),'(80a)') ' '
487             write(fname(1:80),'(3a,i10.10)')
488         &        yadmark, xx_siarea_file(1:il),'.',optimcycle
489             call active_read_xy( fname, tmpfld2d, icvrec,
490         &                        doglobalread, ladinit, optimcycle,
491         &                        mythid, dummy)
492             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
493    #endif /* ALLOW_SIAREA_CONTROL */
494    
495    #ifdef ALLOW_SIHEFF_CONTROL
496          else if ( grdchkvarindex .eq. 42 ) then
497             il=ilnblnk( xx_siheff_file )
498             write(fname(1:80),'(80a)') ' '
499             write(fname(1:80),'(3a,i10.10)')
500         &        yadmark, xx_siheff_file(1:il),'.',optimcycle
501             call active_read_xy( fname, tmpfld2d, icvrec,
502         &                        doglobalread, ladinit, optimcycle,
503         &                        mythid, dummy)
504             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
505    #endif /* ALLOW_SIHEFF_CONTROL */
506    
507    #ifdef ALLOW_SIHSNOW_CONTROL
508          else if ( grdchkvarindex .eq. 43 ) then
509             il=ilnblnk( xx_sihsnow_file )
510             write(fname(1:80),'(80a)') ' '
511             write(fname(1:80),'(3a,i10.10)')
512         &        yadmark, xx_sihsnow_file(1:il),'.',optimcycle
513             call active_read_xy( fname, tmpfld2d, icvrec,
514         &                        doglobalread, ladinit, optimcycle,
515         &                        mythid, dummy)
516             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
517    #endif /* ALLOW_SIHSNOW_CONTROL */
518    
519        else        else
520  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
521        endif        endif
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22