Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine create_grid(this,grid_name,rc)class(regrid_support)::thischaracter(len=*),intent(in)::grid_nameinteger,optional,intent(out)::rctype(FileMetaDataUtils)::metadatatype(FileMetaData)::basic_metadatacharacter(len=:),allocatable::lev_nameinteger::im_world,jm_world,lm_worldtype(NetCDF4_FileFormatter)::formattercharacter(len=:),allocatable::filenamecharacter(len=2)::dateline,poleinteger::statustype(ESMF_CONFIG)::cfoutputfilename=this%filenames%at(1)call formatter%open(trim(filename),pFIO_Read,_RC)basic_metadata=formatter%read(_RC)call metadata%create(basic_metadata,trim(filename))call formatter%close(_RC)lm_world=0lev_name=metadata%get_level_name()if(trim(lev_name)/='')thenlm_world=metadata%get_dimension(lev_name,_RC)end if call UnpackGridName(Grid_name,im_world,jm_world,dateline,pole)cfoutput=create_cf(grid_name,im_world,jm_world,this%nx,this%ny,lm_world,this%cs_stretch_param,this%lon_range,this%lat_range,this%tripolar_file_out,_RC)this%new_grid=grid_manager%make_grid(cfoutput,prefix=trim(grid_name)//".",_RC)_RETURN(_SUCCESS)end subroutine create_grid