RegridSupport Derived Type

type, public :: RegridSupport


Inherits

type~~regridsupport~~InheritsGraph type~regridsupport RegridSupport ESMF_Grid ESMF_Grid type~regridsupport->ESMF_Grid grid_cubed_sphere, grid_lat_lon StringVector StringVector type~regridsupport->StringVector requested_variables, scalar_variables, vector_variables type~filemetadata FileMetadata type~regridsupport->type~filemetadata cfio_cubed_sphere, cfio_lat_lon type~netcdf4_fileformatter NetCDF4_FileFormatter type~regridsupport->type~netcdf4_fileformatter formatter_cubed_sphere, formatter_lat_lon type~filemetadata->StringVector order StringIntegerMap StringIntegerMap type~filemetadata->StringIntegerMap dimensions type~stringvariablemap StringVariableMap type~filemetadata->type~stringvariablemap variables type~variable Variable type~filemetadata->type~variable global_var type~map_set~15 map_Set type~stringvariablemap->type~map_set~15 tree type~variable->StringVector dimensions type~stringattributemap StringAttributeMap type~variable->type~stringattributemap attributes type~unlimitedentity UnlimitedEntity type~variable->type~unlimitedentity const_value type~map_s_basenode~15 map_s_BaseNode type~map_set~15->type~map_s_basenode~15 root type~set2~10 set2 type~stringattributemap->type~set2~10 tree

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: in_file
character(len=:), public, allocatable :: out_file
integer, public :: IM
integer, public :: JM
integer, public :: LM
integer, public :: NT
integer, public :: Xdim
integer, public :: Ydim
integer, public :: i_1
integer, public :: i_n
integer, public :: j_1
integer, public :: j_n
integer, public :: my_tile
integer, public :: nx_loc
integer, public :: ny_loc
integer, public :: x_1
integer, public :: x_n
integer, public :: y_1
integer, public :: y_n
logical, public :: debug = .false.
real(kind=ESMF_KIND_R8), public, allocatable :: latitudes(:)
real(kind=ESMF_KIND_R8), public, allocatable :: longitudes(:)
type(ESMF_Grid), public :: grid_cubed_sphere
type(ESMF_Grid), public :: grid_lat_lon
type(FileMetadata), public :: cfio_cubed_sphere
type(FileMetadata), public :: cfio_lat_lon
type(NetCDF4_FileFormatter), public :: formatter_cubed_sphere
type(NetCDF4_FileFormatter), public :: formatter_lat_lon
type(StringVector), public :: requested_variables
type(StringVector), public :: scalar_variables
type(StringVector), public :: vector_variables(2)

Type-Bound Procedures

procedure, public :: create_cubed_sphere_grid

procedure, public :: create_esmf_grids

  • public subroutine create_esmf_grids(this, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(RegridSupport), intent(inout) :: this
    integer, intent(out), optional :: rc

procedure, public :: create_lat_lon_grid

  • public subroutine create_lat_lon_grid(this, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(RegridSupport), intent(inout) :: this
    integer, intent(out), optional :: rc

procedure, public :: process_command_line

  • public subroutine process_command_line(regridder, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(RegridSupport) :: regridder
    integer, intent(out), optional :: rc

procedure, public :: read_metadata

procedure, public :: transfer_metadata

procedure, public :: write_data

  • public subroutine write_data(this, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(RegridSupport), intent(inout), target :: this
    integer, intent(out), optional :: rc

procedure, public :: write_metadata

  • public subroutine write_metadata(this, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(RegridSupport), intent(inout) :: this
    integer, intent(out), optional :: rc

Source Code

   type RegridSupport
     ! Cubed-sphere
     integer :: Xdim, Ydim
     integer :: nx_loc, ny_loc
     integer :: x_1, x_n
     integer :: y_1, y_n
     integer :: my_tile
     character(len=:), allocatable :: in_file
     type (FileMetadata) :: cfio_cubed_sphere
     type (ESMF_Grid) :: grid_cubed_sphere
     type (Netcdf4_Fileformatter) :: formatter_cubed_sphere

     ! Lat-lon
     integer :: IM
     integer :: JM
     character(len=:), allocatable :: out_file
     type (FileMetadata) :: cfio_lat_lon
     type (ESMF_Grid) :: grid_lat_lon
     integer :: i_1, i_n
     integer :: j_1, j_n
     type (Netcdf4_Fileformatter) :: formatter_lat_lon
     real(kind=ESMF_KIND_R8), allocatable :: longitudes(:)
     real(kind=ESMF_KIND_R8), allocatable :: latitudes(:)

     ! Both
     logical :: debug = .false.
     integer :: LM
     integer :: NT

     ! Misc
     type (StringVector) :: requested_variables
     type (StringVector) :: scalar_variables
     type (StringVector) :: vector_variables(2)
   contains
     procedure :: process_command_line
     procedure :: read_metadata
     procedure :: create_esmf_grids
     procedure :: create_cubed_sphere_grid
     procedure :: create_lat_lon_grid
     procedure :: transfer_metadata
     procedure :: write_metadata
     procedure :: write_data

   end type RegridSupport