diff --git a/xios_examples/write_spatial_reference/resample.F90 b/xios_examples/write_spatial_reference/resample.F90 index 5846f05..c6c445c 100644 --- a/xios_examples/write_spatial_reference/resample.F90 +++ b/xios_examples/write_spatial_reference/resample.F90 @@ -15,7 +15,7 @@ program resample integer :: comm = -1 integer :: rank = -1 integer :: npar = 0 - + print *, "why is this called resample?" call initialise() call simulate() call finalise() @@ -39,21 +39,22 @@ subroutine initialise() ! Initialise MPI and XIOS call MPI_INIT(mpi_error) - + print *, "initialising" call xios_initialize('client', return_comm=comm) - + print *, "boo" call MPI_Comm_rank(comm, rank, mpi_error) call MPI_Comm_size(comm, npar, mpi_error) ! use the axis_check context to obtain sizing information on all arrays ! for use in defining the main context interpretation - + print *, "entering axis_check" call xios_context_initialize('axis_check', comm) call xios_set_time_origin(origin) call xios_set_start_date(start) call xios_set_timestep(tstep) call xios_close_context_definition() + print *, "axis_check defined" ! fetch sizes of axes from the input file call xios_get_axis_attr('lon', n_glo=lenx) @@ -69,6 +70,7 @@ subroutine initialise() call xios_get_axis_attr('lat', value=latvals) call xios_get_axis_attr('alt', value=altvals) + print *, "entering main" ! initialize the main context for interacting with the data. call xios_context_initialize('main', comm) @@ -82,6 +84,7 @@ subroutine initialise() call xios_set_axis_attr("alt", n_glo=lenz, n=lenz, begin=0) call xios_set_axis_attr("alt", value=altvals) call xios_close_context_definition() + print *, "main defined" end subroutine initialise