       Program le_sst

       DIMENSION  SSTM (IDIM1:IDIM2,JDIM1:JDIM2,24)
       
       character(len=2)    :: cn
       character (len=256) :: monthlysst
       
!C***
!C***  DISTRIBUTE SSTM
!C***  
      REWIND(43)
      DO M=1,24
        write(cn,'(i2.2)') M
	monthlysst='monthly_sst'//cn//'.bin'
	OPEN(43,file=monthlysst,form='unformatted',ACCESS='sequential')
	
	READ(43)TEMP1
	print*,TEMP1
!      CALL DSTRB(TEMP1,SSTM,1,24,M)
      ENDDO
!C-----------------------------------------------------------------------
!CJFP
	OPEN(8,FORM='FORMATTED',FILE='tempo_init_sst.txt')
	READ(8,*)INITSST
	WRITE(*,*)INITSST
!CJFP        
!C-----------------------------------------------------------------------
!C     END OF SUBROUTINE READ_SST12M
!C     
!C-----------------------------------------------------------------------
      RETURN
      END

