ectrans_field_api_helper Module


Uses

  • module~~ectrans_field_api_helper~~UsesGraph module~ectrans_field_api_helper ectrans_field_api_helper field_factory_module field_factory_module module~ectrans_field_api_helper->field_factory_module field_module field_module module~ectrans_field_api_helper->field_module module~ectrans_field_api_mod ECTRANS_FIELD_API_MOD module~ectrans_field_api_helper->module~ectrans_field_api_mod parkind1 parkind1 module~ectrans_field_api_helper->parkind1 FIELD_ACCESS_MODULE FIELD_ACCESS_MODULE module~ectrans_field_api_mod->FIELD_ACCESS_MODULE FIELD_BASIC_MODULE FIELD_BASIC_MODULE module~ectrans_field_api_mod->FIELD_BASIC_MODULE FIELD_MODULE FIELD_MODULE module~ectrans_field_api_mod->FIELD_MODULE PARKIND1 PARKIND1 module~ectrans_field_api_mod->PARKIND1

Derived Types

type, public ::  wrapped_fields

Components

Type Visibility Attributes Name Initial
class(field_3rb), public, pointer :: spscalar3 => null()
class(field_2rb), public, pointer :: spscalar2 => null()
class(field_2rb), public, pointer :: spscalar => null()
class(field_2rb), public, pointer :: spvor => null()
class(field_2rb), public, pointer :: spdiv => null()
class(field_3rb), public, pointer :: vor => null()
class(field_3rb), public, pointer :: div => null()
class(field_3rb), public, pointer :: u => null()
class(field_3rb), public, pointer :: v => null()
class(field_3rb), public, pointer :: u_ew => null()
class(field_3rb), public, pointer :: v_ew => null()
class(field_4rb), public, pointer :: scalar3 => null()
class(field_4rb), public, pointer :: scalar3_ew => null()
class(field_4rb), public, pointer :: scalar3_ns => null()
class(field_3rb), public, pointer :: scalar2 => null()
class(field_3rb), public, pointer :: scalar2_ew => null()
class(field_3rb), public, pointer :: scalar2_ns => null()
class(field_3rb), public, pointer :: scalar => null()
class(field_3rb), public, pointer :: scalar_ew => null()
class(field_3rb), public, pointer :: scalar_ns => null()

type, public ::  fields_lists

Components

Type Visibility Attributes Name Initial
type(FIELD_GRID), public, allocatable :: u(:)
type(FIELD_GRID), public, allocatable :: v(:)
type(FIELD_GRID), public, allocatable :: scalar(:)
type(FIELD_SPEC), public, allocatable :: spvor(:)
type(FIELD_SPEC), public, allocatable :: spdiv(:)
type(FIELD_GRID), public, allocatable :: vor(:)
type(FIELD_GRID), public, allocatable :: div(:)
type(FIELD_SPEC), public, allocatable :: spscalar(:)
type(FIELD_GRID), public, allocatable :: u_ew(:)
type(FIELD_GRID), public, allocatable :: v_ew(:)
type(FIELD_GRID), public, allocatable :: scalar_ns(:)
type(FIELD_GRID), public, allocatable :: scalar_ew(:)

Subroutines

public subroutine wrap_benchmark_fields_zgp(ywflds, lvordiv, lscders, luvders, kuv, k2d, zspvor, zspdiv, zspscalar, zgp)

Arguments

Type IntentOptional Attributes Name
type(wrapped_fields), intent(inout) :: ywflds
logical, intent(in) :: lvordiv
logical, intent(in) :: lscders
logical, intent(in) :: luvders
integer, intent(in) :: kuv
integer, intent(in) :: k2d
real(kind=jprb), intent(in) :: zspvor(:,:)
real(kind=jprb), intent(in) :: zspdiv(:,:)
real(kind=jprb), intent(in) :: zspscalar(:,:)
real(kind=jprb), intent(in) :: zgp(:,:,:)

public subroutine wrap_benchmark_fields(ywflds, lvordiv, lscders, luvders, kuv, k2d, k3d, zspvor, zspdiv, zspsc3a, zspsc2, zgpuv, zgp3a, zgp2)

Arguments

Type IntentOptional Attributes Name
type(wrapped_fields), intent(inout) :: ywflds
logical, intent(in) :: lvordiv
logical, intent(in) :: lscders
logical, intent(in) :: luvders
integer, intent(in) :: kuv
integer, intent(in) :: k2d
integer, intent(in) :: k3d
real(kind=jprb), intent(in) :: zspvor(:,:)
real(kind=jprb), intent(in) :: zspdiv(:,:)
real(kind=jprb), intent(in) :: zspsc3a(:,:,:)
real(kind=jprb), intent(in) :: zspsc2(:,:)
real(kind=jprb), intent(in) :: zgpuv(:,:,:,:)
real(kind=jprb), intent(in) :: zgp3a(:,:,:,:)
real(kind=jprb), intent(in) :: zgp2(:,:,:)

public subroutine create_fields_lists(ywflds, ylf, kvsetuv, kvsetsc, kvsetsc2)

Arguments

Type IntentOptional Attributes Name
type(wrapped_fields), intent(in) :: ywflds
type(fields_lists), intent(inout) :: ylf
integer(kind=jpim), intent(in), optional :: kvsetuv(:)
integer(kind=jpim), intent(in), optional :: kvsetsc(:)
integer(kind=jpim), intent(in), optional :: kvsetsc2(:)

public subroutine delete_wrapped_fields(ywflds)

Arguments

Type IntentOptional Attributes Name
type(wrapped_fields), intent(inout) :: ywflds

public subroutine delete_fields_lists(yfl)

Arguments

Type IntentOptional Attributes Name
type(fields_lists), intent(inout) :: yfl

public subroutine synchost_rdonly_wrapped_fields(ywflds)

Arguments

Type IntentOptional Attributes Name
type(wrapped_fields), intent(inout) :: ywflds