/[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.22 by gforget, Sat Feb 2 02:36:50 2008 UTC revision 1.23 by gforget, Wed Jun 11 19:31:41 2008 UTC
# Line 544  c--   == end of interface == Line 544  c--   == end of interface ==
544           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
545  #endif /* ALLOW_SIHSNOW_CONTROL */  #endif /* ALLOW_SIHSNOW_CONTROL */
546    
547    #ifdef ALLOW_ETAN0_CONTROL
548          else if ( grdchkvarindex .eq. 29 ) then
549             il=ilnblnk( xx_etan_file )
550             write(fname(1:80),'(80a)') ' '
551             write(fname(1:80),'(3a,i10.10)')
552         &        yadmark, xx_etan_file(1:il),'.',optimcycle
553             call active_read_xy( fname, tmpfld2d, 1,
554         &                        doglobalread, ladinit, optimcycle,
555         &                        mythid, dummy)
556             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
557    #endif /* ALLOW_ETAN0_CONTROL */
558    
559        else        else
560  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
561        endif        endif
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22