/[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.1 by molod, Wed May 4 22:16:04 2005 UTC revision 1.2 by molod, Thu May 5 21:23:27 2005 UTC
# Line 49  C     !LOCAL VARIABLES: Line 49  C     !LOCAL VARIABLES:
49        _RL temptile(nchp)        _RL temptile(nchp)
50    
51        ihour = nhms/10000        ihour = nhms/10000
52        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'
53        fileprec = 64        fileprec = 64
54    
55        call MDSFINDUNIT( iunit, mythid )        call MDSFINDUNIT( iunit, mythid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22