program main_grid
    use mod_parameters
    use mod_variables
    use mod_read_f
    use mod_harm2grid
    implicit none
    integer :: itime
    
    do itime = 1, 100
        call ocean_velocity_xyz(itime)
    end do
end program main_grid