PROGRAM VERIFY_AMSR_v5

c	this program calls the fortran subroutines that read the 
c	daily and time-averaged data files.  It is currently set
c	to write out the data in the verification files

c	remove or comment out sections you do not have files for
	
     
      CHARACTER*100  filename
      REAL*4, DIMENSION(1440,720,6,2):: amsr_data
      REAL*4, DIMENSION(1440,720,5)  :: avgd_data
        

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC

c	uncomment and fix the path for one of the lines below
c	filename='your drive:\your directory\amsre_20020715v5'	  !change to match your system
c	filename='your drive:\your directory\amsrj_20030912v5'	  !change to match your system

	CALL READ_AMSR_DAY(FILENAME,AMSR_DATA,IEXIST)
	if(iexist.ne.0) stop

	write(*,*) 'gmt time'
	write(*,'(6f11.2)') amsr_data(170:175,274:278,1,1)
	write(*,*) ' '
	write(*,*) 'sea surface temperature'
	write(*,'(6f11.2)') amsr_data(170:175,274:278,2,1)
	write(*,*) ' '
	write(*,*) 'wind speed'
	write(*,'(6f11.2)') amsr_data(170:175,274:278,3,1)
	write(*,*) ' '
	write(*,*) 'water vapor'
	write(*,'(6f11.2)') amsr_data(170:175,274:278,4,1)
	write(*,*) ' '
	write(*,*) 'cloud'
	write(*,'(6f11.2)') amsr_data(170:175,274:278,5,1)
	write(*,*) ' '
	write(*,*) 'rain rate'
	write(*,'(6f11.2)') amsr_data(170:175,274:278,6,1)

c
c
c
	write(*,*) '***********3-day******************'
c	uncomment and fix the path for one of the lines below
c	filename='your drive:\your directory\amsre_20020715v5_d3d'	!change to match your system
c	filename='your drive:\your directory\amsrj_20030912v5_d3d'	!change to match your system

	CALL READ_AMSR_averaged(FILENAME,AVGD_DATA,IEXIST)
	if(iexist.ne.0) stop

	write(*,*) 'sea surface temperature'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,1)
	write(*,*) ' '
	write(*,*) 'wind speed'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,2)
	write(*,*) ' '
	write(*,*) 'water vapor'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,3)
	write(*,*) ' '
	write(*,*) 'cloud'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,4)
	write(*,*) ' '
	write(*,*) 'rain rate'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,5)


	write(*,*) '***********weekly******************'
c	uncomment and fix the path for one of the lines below
c	filename='your drive:\your directory\weeks\amsre_20020720v5'
c	filename='your drive:\your directory\weeks\amsrj_20030913v5'
	
	CALL READ_AMSR_averaged(FILENAME,AVGD_DATA,IEXIST)
	if(iexist.ne.0) stop

	write(*,*) 'sea surface temperature'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,1)
	write(*,*) ' '
	write(*,*) 'wind speed'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,2)
	write(*,*) ' '
	write(*,*) 'water vapor'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,3)
	write(*,*) ' '
	write(*,*) 'cloud'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,4)
	write(*,*) ' '
	write(*,*) 'rain rate'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,5)


	write(*,*) '***********month******************'
c	uncomment and fix the path for one of the lines below
c	filename='your drive:\your directory\amsre_200207v5'
c	filename='your drive:\your directory\amsrj_200309v5'

	CALL READ_AMSR_averaged(FILENAME,AVGD_DATA,IEXIST)
	if(iexist.ne.0) stop

	write(*,*) 'sea surface temperature'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,1)
	write(*,*) ' '
	write(*,*) 'wind speed'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,2)
	write(*,*) ' '
	write(*,*) 'water vapor'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,3)
	write(*,*) ' '
	write(*,*) 'cloud'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,4)
	write(*,*) ' '
	write(*,*) 'rain rate'
	write(*,'(6f11.2)') avgd_data(170:175,274:278,5)

	stop
	end

	include 'read_amsr_subroutines_v5.f'