Skip to content

Commit

Permalink
f debug
Browse files Browse the repository at this point in the history
  • Loading branch information
mo-marqh committed Oct 31, 2024
1 parent 6407d4e commit 3a92a9e
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions xios_examples/write_spatial_reference/resample.F90
Original file line number Diff line number Diff line change
Expand Up @@ -58,17 +58,23 @@ subroutine initialise()

! fetch sizes of axes from the input file
call xios_get_axis_attr('lon', n_glo=lenx)
print *, "got lon n_glo"
call xios_get_axis_attr('lat', n_glo=leny)
print *, "got lat n_glo"
call xios_get_axis_attr('alt', n_glo=lenz)
print *, "got alt n_glo"

allocate ( lonvals(lenx) )
allocate ( latvals(leny) )
allocate ( altvals(lenz) )

! fetch coordinate value arrays from the input file
call xios_get_axis_attr('lon', value=lonvals)
print *, "got lon values"
call xios_get_axis_attr('lat', value=latvals)
print *, "got lat values"
call xios_get_axis_attr('alt', value=altvals)
print *, "got alt values"

print *, "entering main"
! initialize the main context for interacting with the data.
Expand Down

0 comments on commit 3a92a9e

Please sign in to comment.