48 use,
intrinsic :: iso_c_binding
52 real( kind=c_double ),
dimension(2) :: pos
55 call mpi_init( error )
62 if(
asagi_grid_open( grid_id,
"/path/to/netcdf/file.nc" ) /= asagi_success )
then
63 write (*,*)
"Could not load file"
72 call mpi_finalize( error )
void asagi_grid_close(asagi_grid *handle)
void asagi_grid_set_comm(asagi_grid *handle, MPI_Comm comm)
asagi_error asagi_grid_open(asagi_grid *handle, const char *filename, unsigned int level)
program minimal
Fortran Example.
asagi_grid * asagi_grid_create(asagi_type type)
float asagi_grid_get_float(asagi_grid *handle, const double *pos, unsigned int level)
void asagi_grid_set_threads(asagi_grid *handle, unsigned int threads)