Back to OASIS3-MCT home

In oasis3-mct/lib/psmile/src :

mod_oasis_grid.F90 :

CONTAINS
SUBROUTINE oasis_print_grid_data()
SUBROUTINE oasis_start_grids_writing(iwrite)
SUBROUTINE oasis_write_grid_r8/4(cgrid, nx, ny, lon, lat, partid)
=> oasis_debug_enter(subname)
=> oasis_findgrid(cgrid,nx,ny,gridID)
=> oasis_debug_exit(subname)
SUBROUTINE oasis_write_angle_r8/4(cgrid, nx, ny, angle, partid)
SUBROUTINE oasis_write_corner_r8/4(cgrid, nx, ny, nc, clon, clat, partid)
SUBROUTINE oasis_write_mask(cgrid, nx, ny, mask, partid)
SUBROUTINE oasis_write_area_r8/4(cgrid, nx, ny, area, partid)
SUBROUTINE oasis_terminate_grids_writing()
SUBROUTINE oasis_write2files() (called in mod_oasis_method/oasis_enddef)
=> 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
...