|		REAL,ALLOCATABLE:: SST12M(:,:,:)
							      >		ALLOCATE(SST12M(IM,JM,12))
     .          ,res,fist,sno,sst,si,albedo		      |	     .          ,res,fist,sno,sst,sst12m,si,albedo
     .                ,res,fis,sno,sst,si,albedo	      |	     .                ,res,fis,sno,sst,sst12m,si,albedo
      integer*4 itb,jtb,itbq,jtbq,JJ,NSOTYP,NFLT	      |	      integer*4 itb,jtb,itbq,jtbq,JJ,NSOTYP
							      >	      real*4 sst12m(im,jm,12)
     .         ,list,len,i,j,k,l,ja,nfcst,nbc,nx,ny	      |	     .         ,list,len,i,j,k,l,m,ja,nfcst,nbc,nx,ny
							      |	        REAL RI1D(360,180)
							      >		coac=.04*(.53846154/DPHD)**2.
							      >	cJLG
							      >	CJLG        coac=0.16
							      >	CJLG            coac=.04*(.53846154/DPHD)**2.
							      >	CJLG            coac=0.08
							      >	cJLG
							      >	        write(6,*) 'SST vals ', sst(1,1),sst(10,10),sst(50,50
							      >	CJLG
							      >	CANDRE Comentado para rodar versao de tempo
							      >	CANDRE        if (.NOT. REAN) then
							      >	CANDRE	  CALL SSTHIRESCLIM(sst12m,sm,glatr,glonr,IDAT,6,DTR)
							      >	CANDRE	  write(6,*) 'back from SSTHIRESCLIM call'
							      >	CANDRE	endif
							      >	CJLG
							      >	      open(1,file=init_out(1:len)//'sst12m.file'
							      >	     .    ,status='unknown',form='unformatted')
							      >	      do m=1,12
							      >	       write(1) sst12m(:,:,M)
							      >	      enddo
							      >	      close(1)
							      >	     
        do J=jm,1,-JM/5					      |	        do J=jm,1,-JM/50
							      <
C  20020531						      <
C							      <
C       9-point filter SST data				      <
							      <
        do NFLT=1,4					      <
        do J=2,JM-1					      <
        do I=2,IM-1					      <
        SST(I,J)=0.25*SST(I,J)+0.125*(SST(I+1,J)+SST(I-1,J)+  <
     &                               SST(I,J+1)+SST(I,J-1))   <
     &               +0.0625*(SST(I+1,J+1)+SST(I+1,J-1)+      <
     &                        SST(I-1,J+1)+SST(I-1,J-1))      <
        enddo						      <
        enddo						      <
        enddo						      <
							      <
							      >	       RI1D= I1D
							      >	       write(62,*)I1D
							      >	       write(71) RI1D
							      >	       close(71)
							      >	       read(45)IONETA
							      >	       write(6,*)'Done vegetation type'
C	write(6,*) 'sample veg type values '		      <
C	write(6,429) (IONETA(I,J),I=1,im,3)		      |		write(6,429) (IONETA(I,J),I=1,im,3)