=> oasis_debug_enter(subname)
=> oasis_timer_start('grid_write_gather')
=> MPI_GATHER(prism_ngrid, 1, MPI_INTEGER, gnum, 1, MPI_INTEGER, 0,
mpi_comm_local, ierr)
=> MPI_GATHERV(loc_gname, prism_ngrid*ic_med, MPI_CHARACTER, gname0,
rcnts, displ, MPI_CHARACTER, 0, mpi_comm_local, ierr)
=> MPI_GATHERV(loc_pname, prism_ngrid*ic_lvar2, MPI_CHARACTER,
pname0, rcnts, displ, MPI_CHARACTER, 0, mpi_comm_local, ierr)
=> oasis_timer_stop ('grid_write_gather')
=> oasis_timer_start('grid_write_rootsrch')
=> oasis_timer_stop ('grid_write_rootsrch')
=> oasis_timer_start('grid_write_bcast')
=> oasis_bcast
=> oasis_timer_stop ('grid_write_bcast')
=> oasis_timer_start('grid_write_writefiles')
if (partid_grid) then
=> oasis_grid_loc2glo(prism_grid(n)%lon,rglo,partid,0)
=> oasis_debug_enter(subname)
=> mct_avect_init(avloc,rList='field',lsize=lnx*lny)
=>
mct_aVect_gather(avloc,avglo,prism_part(partid)%pgsmap,taskid,prism_part(partid)%mpicom)
=> mct_avect_clean(avloc)
else
rglo = prism_grid(n)%lon
if (write_task)
=> oasis_io_write_2dgridfld_fromroot(filename,fldname,rglo,nx,ny)
if (partid_grid) then
=> oasis_grid_loc2glo(prism_grid(n)%lat,rglo,partid,0)
else
rglo = prism_grid(n)%lat
...