--- MITgcm/pkg/fizhi/fizhi_init_vegsurftiles.F 2007/06/21 22:11:57 1.8 +++ MITgcm/pkg/fizhi/fizhi_init_vegsurftiles.F 2007/07/09 15:07:14 1.10 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/fizhi/fizhi_init_vegsurftiles.F,v 1.8 2007/06/21 22:11:57 molod Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/fizhi/fizhi_init_vegsurftiles.F,v 1.10 2007/07/09 15:07:14 molod Exp $ C $Name: $ #include "FIZHI_OPTIONS.h" @@ -59,9 +59,11 @@ ihour = nhms/10000 if(xsize.eq.192) then - 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' elseif(xsize.eq.612) then - WRITE(fn,'(a,I8,a,I2.2,a)')'vegtiles_cs32.d',nymd,'z',ihour,'.bin' + WRITE(fn,'(a,I8,a,I2.2,a)') + . 'vegtiles_cs102.d',nymd,'z',ihour,'.bin' else print *,' xsize is ',xsize stop 'do not seem to have correct vegtiles data '