/[MITgcm]/MITgcm/pkg/fizhi/fizhi_init_vegsurftiles.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_init_vegsurftiles.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by molod, Wed Apr 19 21:45:46 2006 UTC revision 1.8 by molod, Thu Jun 21 22:11:57 2007 UTC
# Line 58  C     !LOCAL VARIABLES: Line 58  C     !LOCAL VARIABLES:
58        _RL fracland(sNx,sNy,Nsx,Nsy)        _RL fracland(sNx,sNy,Nsx,Nsy)
59    
60        ihour = nhms/10000        ihour = nhms/10000
61          if(xsize.eq.192) then
62        WRITE(fn,'(a,I8,a,I2.2,a)')'vegtiles_cs32.d',nymd,'z',ihour,'.bin'        WRITE(fn,'(a,I8,a,I2.2,a)')'vegtiles_cs32.d',nymd,'z',ihour,'.bin'
63          elseif(xsize.eq.612) then
64          WRITE(fn,'(a,I8,a,I2.2,a)')'vegtiles_cs32.d',nymd,'z',ihour,'.bin'
65          else
66          print *,' xsize is ',xsize
67          stop 'do not seem to have correct vegtiles data '
68          endif
69        fileprec = 64        fileprec = 64
70    
71        call MDSFINDUNIT( iunit, mythid )        call MDSFINDUNIT( iunit, mythid )
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22