program tsis_verify
        use mkinds
        use mverify


       real(r4)  :: u_bias,u_rmsd
       real(r4)  :: v_bias,v_rmsd
       real(r4)  :: sla_bias,sla_rms
       real(r4)  :: sst_bias,sst_rms
       real(r4)  :: t_bias,t_rms
       real(r4)  :: s_bias,s_rms
       integer(i4) :: tcount
       character(8) :: date
       character(3) :: cday

       !call verify_dvel(u_bias,u_rmsd,v_bias,v_rmsd)
       !call ncverify_sla(sla_bias,sla_rms)
       !call ncverify_sst(sst_bias,sst_rms)
       call ncverify_argo(date,cday,tcount,t_bias,t_rms,s_bias,s_rms)

       write(*,'(a8,3x,a3,3x,I9,4F12.4)') date,cday,tcount,t_bias,t_rms,s_bias,s_rms
!       write(*,'(a8,3x,a3,3x,4F12.4,I9,4F12.4)') date,cday,sla_bias,sla_rms,sst_bias,sst_rms,tcount,t_bias,t_rms,s_bias,s_rms
!        print *, sla_bias,sla_rms
!       print *, sla_bias,sla_rms,sst_bias,sst_rms 

end program tsis_verify