/[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.8 by molod, Thu Jun 21 22:11:57 2007 UTC revision 1.10 by molod, Mon Jul 9 15:07:14 2007 UTC
# Line 59  C     !LOCAL VARIABLES: Line 59  C     !LOCAL VARIABLES:
59    
60        ihour = nhms/10000        ihour = nhms/10000
61        if(xsize.eq.192) then        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)')
63         .            'vegtiles_cs32.d',nymd,'z',ihour,'.bin'
64        elseif(xsize.eq.612) then        elseif(xsize.eq.612) then
65        WRITE(fn,'(a,I8,a,I2.2,a)')'vegtiles_cs32.d',nymd,'z',ihour,'.bin'        WRITE(fn,'(a,I8,a,I2.2,a)')
66         .            'vegtiles_cs102.d',nymd,'z',ihour,'.bin'
67        else        else
68        print *,' xsize is ',xsize        print *,' xsize is ',xsize
69        stop 'do not seem to have correct vegtiles data '        stop 'do not seem to have correct vegtiles data '
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22