SwathGridFactory Derived Type

type, public, extends(AbstractGridFactory) :: SwathGridFactory


Inherits

type~~swathgridfactory~~InheritsGraph type~swathgridfactory SwathGridFactory ESMF_DELayout ESMF_DELayout type~swathgridfactory->ESMF_DELayout layout ESMF_Time ESMF_Time type~swathgridfactory->ESMF_Time obsfile_start_time, obsfile_end_time ESMF_TimeInterval ESMF_TimeInterval type~swathgridfactory->ESMF_TimeInterval obsfile_interval, EPOCH_FREQUENCY type~abstractgridfactory AbstractGridFactory type~swathgridfactory->type~abstractgridfactory ESMF_Grid ESMF_Grid type~abstractgridfactory->ESMF_Grid grid

Constructor

public interface SwathGridFactory

  • private function SwathGridFactory_from_parameters(unusable, grid_name, im_world, jm_world, lm, nx, ny, ims, jms, rc) result(factory)

    Arguments

    Type IntentOptional Attributes Name
    class(KeywordEnforcer), intent(in), optional :: unusable
    character(len=*), intent(in), optional :: grid_name
    integer, intent(in), optional :: im_world
    integer, intent(in), optional :: jm_world
    integer, intent(in), optional :: lm
    integer, intent(in), optional :: nx
    integer, intent(in), optional :: ny
    integer, intent(in), optional :: ims(:)
    integer, intent(in), optional :: jms(:)
    integer, intent(out), optional :: rc

    Return Value type(SwathGridFactory)


Type-Bound Procedures

procedure, public :: add_horz_coordinates_from_file

  • private subroutine add_horz_coordinates_from_file(this, grid, unusable, rc)

    call ESMF_VMGet(vm, mpiCommunicator=mpic, localPet=mypet, petCount=petCount, rc=status);if(MAPL_Verify(status,”/home/runner/work/MAPL/MAPL/base/MAPL_SwathGridFactory.F90”,246 ,rc)) return

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(in) :: this
    type(ESMF_Grid), intent(inout) :: grid
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: append_metadata

  • private subroutine append_metadata(this, metadata)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    type(FileMetadata), intent(inout) :: metadata

procedure, public :: append_variable_metadata

  • private subroutine append_variable_metadata(this, var)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    type(Variable), intent(inout) :: var

generic, public :: cartesian_to_spherical => cartesian_to_spherical_2d_real32

  • private subroutine cartesian_to_spherical_2d_real32(this, xyz, u, v, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL32), intent(in) :: xyz(:,:,:,:)
    real(kind=REAL32), intent(out) :: u(:,:)
    real(kind=REAL32), intent(out) :: v(:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

generic, public :: cartesian_to_spherical => cartesian_to_spherical_2d_real64

  • private subroutine cartesian_to_spherical_2d_real64(this, xyz, u, v, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL64), intent(in) :: xyz(:,:,:,:)
    real(kind=REAL64), intent(out) :: u(:,:)
    real(kind=REAL64), intent(out) :: v(:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

generic, public :: cartesian_to_spherical => cartesian_to_spherical_3d_real32

  • private subroutine cartesian_to_spherical_3d_real32(this, xyz, u, v, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL32), intent(in) :: xyz(:,:,:,:)
    real(kind=REAL32), intent(out) :: u(:,:,:)
    real(kind=REAL32), intent(out) :: v(:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

generic, public :: cartesian_to_spherical => cartesian_to_spherical_3d_real64

  • private subroutine cartesian_to_spherical_3d_real64(this, xyz, u, v, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL64), intent(in) :: xyz(:,:,:,:)
    real(kind=REAL64), intent(out) :: u(:,:,:)
    real(kind=REAL64), intent(out) :: v(:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: cartesian_to_spherical_2d_real32

  • private subroutine cartesian_to_spherical_2d_real32(this, xyz, u, v, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL32), intent(in) :: xyz(:,:,:,:)
    real(kind=REAL32), intent(out) :: u(:,:)
    real(kind=REAL32), intent(out) :: v(:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: cartesian_to_spherical_2d_real64

  • private subroutine cartesian_to_spherical_2d_real64(this, xyz, u, v, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL64), intent(in) :: xyz(:,:,:,:)
    real(kind=REAL64), intent(out) :: u(:,:)
    real(kind=REAL64), intent(out) :: v(:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: cartesian_to_spherical_3d_real32

  • private subroutine cartesian_to_spherical_3d_real32(this, xyz, u, v, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL32), intent(in) :: xyz(:,:,:,:)
    real(kind=REAL32), intent(out) :: u(:,:,:)
    real(kind=REAL32), intent(out) :: v(:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: cartesian_to_spherical_3d_real64

  • private subroutine cartesian_to_spherical_3d_real64(this, xyz, u, v, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL64), intent(in) :: xyz(:,:,:,:)
    real(kind=REAL64), intent(out) :: u(:,:,:)
    real(kind=REAL64), intent(out) :: v(:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: check_and_fill_consistency

  • private subroutine check_and_fill_consistency(this, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: check_decomposition

  • private function check_decomposition(this, unusable, rc) result(can_decomp)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout), target :: this
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

    Return Value logical

procedure, public :: clone

procedure, public :: create_basic_grid

  • private function create_basic_grid(this, unusable, rc) result(grid)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(in) :: this
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

    Return Value type(ESMF_Grid)

procedure, public :: decomps_are_equal

  • private function decomps_are_equal(this, a) result(equal)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(in) :: this
    class(AbstractGridFactory), intent(in) :: a

    Return Value logical

procedure, public :: destroy

  • private subroutine destroy(this, rc)

    Arguments

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

procedure, public :: equals

  • private function equals(a, b)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(in) :: a
    class(AbstractGridFactory), intent(in) :: b

    Return Value logical

procedure, public :: generate_file_bounds

  • private subroutine generate_file_bounds(this, grid, local_start, global_start, global_count, metaData, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    type(ESMF_Grid), intent(inout) :: grid
    integer, intent(out), allocatable :: local_start(:)
    integer, intent(out), allocatable :: global_start(:)
    integer, intent(out), allocatable :: global_count(:)
    type(FileMetadata), intent(in), optional :: metaData
    integer, intent(out), optional :: rc

procedure, public :: generate_file_corner_bounds

  • private subroutine generate_file_corner_bounds(this, grid, local_start, global_start, global_count, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    type(ESMF_Grid), intent(inout) :: grid
    integer, intent(out), allocatable :: local_start(:)
    integer, intent(out), allocatable :: global_start(:)
    integer, intent(out), allocatable :: global_count(:)
    integer, intent(out), optional :: rc

procedure, public :: generate_file_reference2D

  • private function generate_file_reference2D(this, fpointer) result(ref)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    real, intent(in), pointer :: fpointer(:,:)

    Return Value type(ArrayReference)

procedure, public :: generate_file_reference3D

  • private function generate_file_reference3D(this, fpointer, metaData) result(ref)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    real, intent(in), pointer :: fpointer(:,:,:)
    type(FileMetadata), intent(in), optional :: metaData

    Return Value type(ArrayReference)

procedure, public :: generate_grid_name

  • private function generate_grid_name(this) result(name)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(in) :: this

    Return Value character(len=:), allocatable

procedure, public :: generate_newnxy

  • private subroutine generate_newnxy(this, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout), target :: this
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: get_basis

  • private function get_basis(this, basis, unusable, rc) result(basis_vectors)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

    Return Value real(kind=REAL64), pointer, (:,:,:,:)

procedure, public :: get_file_format_vars

  • private function get_file_format_vars(this) result(vars)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this

    Return Value character(len=:), allocatable

procedure, public :: get_grid

  • private function get_grid(this, unusable, rc) result(grid)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), target :: this
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

    Return Value type(ESMF_Grid), pointer

procedure, public :: get_grid_vars

  • private function get_grid_vars(this) result(vars)

    key_lon=trim(this%var_name_lon) key_lat=trim(this%var_name_lat)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this

    Return Value character(len=:), allocatable

procedure, public :: get_obs_time

  • private subroutine get_obs_time(this, grid, obs_time, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    type(ESMF_Grid), intent(in) :: grid
    real(kind=ESMF_KIND_R4), intent(out) :: obs_time(:,:)
    integer, intent(out), optional :: rc

procedure, public :: get_xy_mask

  • private subroutine get_xy_mask(this, interval, xy_mask, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout) :: this
    type(ESMF_Time), intent(in) :: interval(2)
    integer, intent(out), allocatable :: xy_mask(:,:)
    integer, intent(out), optional :: rc

procedure, public :: get_xy_subset

  • private subroutine get_xy_subset(this, interval, xy_subset, rc)

    complex version ! (x1, x2] design in bisect if (index1==jlo-1) then je = index1 + 1 else je = index1 end if xy_subset(1, 2) = je if (index2==jlo-1) then je = index2 + 1 else je = index2 end if xy_subset(2, 2) = je

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(in) :: this
    type(ESMF_Time), intent(in) :: interval(2)
    integer, intent(out) :: xy_subset(2,2)
    integer, intent(out), optional :: rc

procedure, public :: halo

  • private subroutine halo(this, array, unusable, halo_width, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    real(kind=REAL32), intent(inout) :: array(:,:)
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(in), optional :: halo_width
    integer, intent(out), optional :: rc

procedure, public :: init_halo

  • private subroutine init_halo(this, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout), target :: this
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

generic, public :: initialize => initialize_from_config

  • private subroutine initialize_from_config(this, config, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout) :: this
    type(ESMF_Config), intent(inout) :: config
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

generic, public :: initialize => initialize_from_file_metadata

  • private subroutine initialize_from_file_metadata(this, file_metadata, unusable, force_file_coordinates, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(XYGridFactory), intent(inout) :: this
    type(FileMetadata), intent(in), target :: file_metadata
    class(KeywordEnforcer), intent(in), optional :: unusable
    logical, intent(in), optional :: force_file_coordinates
    integer, intent(out), optional :: rc

generic, public :: initialize => initialize_from_config_with_prefix

  • private subroutine initialize_from_config_with_prefix(this, config, prefix, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(XYGridFactory), intent(inout) :: this
    type(ESMF_Config), intent(inout) :: config
    character(len=*), intent(in) :: prefix
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

generic, public :: initialize => initialize_from_esmf_distGrid

  • private subroutine initialize_from_esmf_distGrid(this, dist_grid, lon_array, lat_array, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(XYGridFactory), intent(inout) :: this
    type(ESMF_DistGrid), intent(in) :: dist_grid
    type(ESMF_LocalArray), intent(in) :: lon_array
    type(ESMF_LocalArray), intent(in) :: lat_array
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: initialize_from_config

  • private subroutine initialize_from_config(this, config, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout) :: this
    type(ESMF_Config), intent(inout) :: config
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: initialize_from_config_with_prefix

  • private subroutine initialize_from_config_with_prefix(this, config, prefix, unusable, rc)

    write(6,’(a)’) ‘this%t_alongtrack(::50)=’ write(6,’(5f20.2)’) this%t_alongtrack(::50)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    type(ESMF_Config), intent(inout) :: config
    character(len=*), intent(in) :: prefix
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: initialize_from_esmf_distGrid

  • private subroutine initialize_from_esmf_distGrid(this, dist_grid, lon_array, lat_array, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    type(ESMF_DistGrid), intent(in) :: dist_grid
    type(ESMF_LocalArray), intent(in) :: lon_array
    type(ESMF_LocalArray), intent(in) :: lat_array
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: initialize_from_file_metadata

  • private subroutine initialize_from_file_metadata(this, file_metadata, unusable, force_file_coordinates, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(inout) :: this
    type(FileMetadata), intent(in), target :: file_metadata
    class(KeywordEnforcer), intent(in), optional :: unusable
    logical, intent(in), optional :: force_file_coordinates
    integer, intent(out), optional :: rc

procedure, public, nopass :: make_arbitrary_decomposition

  • private subroutine make_arbitrary_decomposition(nx, ny, unusable, reduceFactor, rc)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(out) :: nx
    integer, intent(out) :: ny
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(in), optional :: reduceFactor
    integer, intent(out), optional :: rc

procedure, public :: make_grid

  • private function make_grid(this, unusable, rc) result(grid)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout) :: this
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

    Return Value type(ESMF_Grid)

procedure, public :: make_new_grid

  • private function make_new_grid(this, unusable, rc) result(grid)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(in) :: this
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

    Return Value type(ESMF_Grid)

generic, public :: operator(==) => equals

  • private function equals(a, b)

    Arguments

    Type IntentOptional Attributes Name
    class(XYGridFactory), intent(in) :: a
    class(AbstractGridFactory), intent(in) :: b

    Return Value logical

procedure, public :: physical_params_are_equal

  • private function physical_params_are_equal(this, a) result(equal)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(in) :: this
    class(AbstractGridFactory), intent(in) :: a

    Return Value logical

generic, public :: spherical_to_cartesian => spherical_to_cartesian_2d_real32

  • private subroutine spherical_to_cartesian_2d_real32(this, u, v, xyz, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL32), intent(in) :: u(:,:)
    real(kind=REAL32), intent(in) :: v(:,:)
    real(kind=REAL32), intent(out) :: xyz(:,:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

generic, public :: spherical_to_cartesian => spherical_to_cartesian_2d_real64

  • private subroutine spherical_to_cartesian_2d_real64(this, u, v, xyz, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL64), intent(in) :: u(:,:)
    real(kind=REAL64), intent(in) :: v(:,:)
    real(kind=REAL64), intent(out) :: xyz(:,:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

generic, public :: spherical_to_cartesian => spherical_to_cartesian_3d_real32

  • private subroutine spherical_to_cartesian_3d_real32(this, u, v, xyz, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL32), intent(in) :: u(:,:,:)
    real(kind=REAL32), intent(in) :: v(:,:,:)
    real(kind=REAL32), intent(out) :: xyz(:,:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

generic, public :: spherical_to_cartesian => spherical_to_cartesian_3d_real64

  • private subroutine spherical_to_cartesian_3d_real64(this, u, v, xyz, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL64), intent(in) :: u(:,:,:)
    real(kind=REAL64), intent(in) :: v(:,:,:)
    real(kind=REAL64), intent(out) :: xyz(:,:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: spherical_to_cartesian_2d_real32

  • private subroutine spherical_to_cartesian_2d_real32(this, u, v, xyz, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL32), intent(in) :: u(:,:)
    real(kind=REAL32), intent(in) :: v(:,:)
    real(kind=REAL32), intent(out) :: xyz(:,:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: spherical_to_cartesian_2d_real64

  • private subroutine spherical_to_cartesian_2d_real64(this, u, v, xyz, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL64), intent(in) :: u(:,:)
    real(kind=REAL64), intent(in) :: v(:,:)
    real(kind=REAL64), intent(out) :: xyz(:,:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: spherical_to_cartesian_3d_real32

  • private subroutine spherical_to_cartesian_3d_real32(this, u, v, xyz, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL32), intent(in) :: u(:,:,:)
    real(kind=REAL32), intent(in) :: v(:,:,:)
    real(kind=REAL32), intent(out) :: xyz(:,:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: spherical_to_cartesian_3d_real64

  • private subroutine spherical_to_cartesian_3d_real64(this, u, v, xyz, basis, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractGridFactory), intent(inout), target :: this
    real(kind=REAL64), intent(in) :: u(:,:,:)
    real(kind=REAL64), intent(in) :: v(:,:,:)
    real(kind=REAL64), intent(out) :: xyz(:,:,:,:)
    character(len=*), intent(in) :: basis
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: to_string

  • private function to_string(this) result(string)

    Arguments

    Type IntentOptional Attributes Name
    class(SwathGridFactory), intent(in) :: this

    Return Value character(len=:), allocatable

Source Code

   type, extends(AbstractGridFactory) :: SwathGridFactory
      private
      character(len=:), allocatable :: grid_name
      character(len=:), allocatable :: grid_file_name
      character(len=ESMF_MAXSTR)    :: filenames(mx_file)
      integer                       :: M_file

      integer :: cell_across_swath
      integer :: cell_along_swath
      integer :: im_world = MAPL_UNDEFINED_INTEGER
      integer :: jm_world = MAPL_UNDEFINED_INTEGER
      integer :: lm = MAPL_UNDEFINED_INTEGER
      logical :: force_decomposition = .false.

      integer :: epoch                         ! unit: second
      integer(ESMF_KIND_I8) :: epoch_index(4)  ! is,ie,js,je
      real(ESMF_KIND_R8), allocatable:: t_alongtrack(:)
      ! note: this var is not deallocated in swathfactory, use caution
      character(len=ESMF_MAXSTR)     :: tunit
      character(len=ESMF_MAXSTR)     :: index_name_lon
      character(len=ESMF_MAXSTR)     :: index_name_lat
      character(len=ESMF_MAXSTR)     :: var_name_lon
      character(len=ESMF_MAXSTR)     :: var_name_lat
      character(len=ESMF_MAXSTR)     :: var_name_time
      character(len=ESMF_MAXSTR)     :: input_template
      logical                        :: found_group

      type(ESMF_Time)                :: obsfile_start_time   ! user specify
      type(ESMF_Time)                :: obsfile_end_time
      type(ESMF_TimeInterval)        :: obsfile_interval
      type(ESMF_TimeInterval)        :: EPOCH_FREQUENCY
      integer                        :: obsfile_Ts_index     ! for epoch
      integer                        :: obsfile_Te_index
      logical                        :: is_valid

      ! Domain decomposition:
      integer :: nx = MAPL_UNDEFINED_INTEGER
      integer :: ny = MAPL_UNDEFINED_INTEGER
      integer, allocatable :: ims(:)
      integer, allocatable :: jms(:)
      ! Used for halo
      type (ESMF_DELayout) :: layout
      logical :: initialized_from_metadata = .false.
   contains
      procedure :: make_new_grid
      procedure :: create_basic_grid
      procedure :: add_horz_coordinates_from_file
      procedure :: init_halo
      procedure :: halo

      procedure :: initialize_from_file_metadata
      procedure :: initialize_from_config_with_prefix
      procedure :: initialize_from_esmf_distGrid

      procedure :: equals
      procedure :: check_and_fill_consistency
      procedure :: generate_grid_name
      procedure :: to_string

      procedure :: append_metadata
      procedure :: get_grid_vars
      procedure :: get_file_format_vars
      procedure :: append_variable_metadata
      procedure :: check_decomposition
      procedure :: generate_newnxy
      procedure :: generate_file_bounds
      procedure :: generate_file_corner_bounds
      procedure :: generate_file_reference2D
      procedure :: generate_file_reference3D
      procedure :: decomps_are_equal
      procedure :: physical_params_are_equal

      procedure :: get_xy_subset
      procedure :: destroy
      procedure :: get_obs_time
   end type SwathGridFactory