f debug

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