FieldSpec.F90 Source File


This file depends on

sourcefile~~fieldspec.f90~~EfferentGraph sourcefile~fieldspec.f90 FieldSpec.F90 sourcefile~abstractstateitemspec.f90 AbstractStateItemSpec.F90 sourcefile~fieldspec.f90->sourcefile~abstractstateitemspec.f90 sourcefile~couplingspec.f90 CouplingSpec.F90 sourcefile~fieldspec.f90->sourcefile~couplingspec.f90 sourcefile~dimspec.f90 DimSpec.F90 sourcefile~fieldspec.f90->sourcefile~dimspec.f90 sourcefile~horizontalstaggerloc.f90 HorizontalStaggerLoc.F90 sourcefile~dimspec.f90->sourcefile~horizontalstaggerloc.f90 sourcefile~ungriddeddimspec.f90 UngriddedDimSpec.F90 sourcefile~dimspec.f90->sourcefile~ungriddeddimspec.f90 sourcefile~verticalstaggerloc.f90 VerticalStaggerLoc.F90 sourcefile~dimspec.f90->sourcefile~verticalstaggerloc.f90

Files dependent on this one

sourcefile~~fieldspec.f90~~AfferentGraph sourcefile~fieldspec.f90 FieldSpec.F90 sourcefile~oomph.f90 oomph.F90 sourcefile~oomph.f90->sourcefile~fieldspec.f90 sourcefile~varconnpoint.f90 VarConnPoint.F90 sourcefile~varconnpoint.f90->sourcefile~oomph.f90 sourcefile~varspectype.f90 VarSpecType.F90 sourcefile~varspectype.f90->sourcefile~oomph.f90 sourcefile~mapl_generic.f90 MAPL_Generic.F90 sourcefile~mapl_generic.f90->sourcefile~varspectype.f90 sourcefile~varspec.f90 VarSpec.F90 sourcefile~mapl_generic.f90->sourcefile~varspec.f90 sourcefile~statespecification.f90 StateSpecification.F90 sourcefile~statespecification.f90->sourcefile~varspectype.f90 sourcefile~varspecmiscmod.f90 VarSpecMiscMod.F90 sourcefile~statespecification.f90->sourcefile~varspecmiscmod.f90 sourcefile~varconn.f90 VarConn.F90 sourcefile~varconn.f90->sourcefile~varconnpoint.f90 sourcefile~varconntype.f90 VarConnType.F90 sourcefile~varconn.f90->sourcefile~varconntype.f90 sourcefile~varconn.f90->sourcefile~varspec.f90 sourcefile~varconntype.f90->sourcefile~varconnpoint.f90 sourcefile~varspec.f90->sourcefile~varspectype.f90 sourcefile~varspecmiscmod.f90->sourcefile~varconnpoint.f90 sourcefile~varspecmiscmod.f90->sourcefile~varspectype.f90 sourcefile~varspecmiscmod.f90->sourcefile~varconn.f90 sourcefile~varspecmiscmod.f90->sourcefile~varconntype.f90 sourcefile~varspecmiscmod.f90->sourcefile~varspec.f90 sourcefile~comp_testing_driver.f90 Comp_Testing_Driver.F90 sourcefile~comp_testing_driver.f90->sourcefile~mapl_generic.f90 sourcefile~componentspecification.f90 ComponentSpecification.F90 sourcefile~componentspecification.f90->sourcefile~statespecification.f90 sourcefile~extdatagridcompmod.f90 ExtDataGridCompMod.F90 sourcefile~extdatagridcompmod.f90->sourcefile~mapl_generic.f90 sourcefile~extdatagridcompmod.f90->sourcefile~varspec.f90 sourcefile~extdatagridcompng.f90 ExtDataGridCompNG.F90 sourcefile~extdatagridcompng.f90->sourcefile~mapl_generic.f90 sourcefile~extdatagridcompng.f90->sourcefile~varspec.f90 sourcefile~genericcplcomp.f90 GenericCplComp.F90 sourcefile~genericcplcomp.f90->sourcefile~varspecmiscmod.f90 sourcefile~mapl.f90 MAPL.F90 sourcefile~mapl.f90->sourcefile~mapl_generic.f90 sourcefile~mapl.f90->sourcefile~varspecmiscmod.f90 sourcefile~mapl_capgridcomp.f90 MAPL_CapGridComp.F90 sourcefile~mapl_capgridcomp.f90->sourcefile~mapl_generic.f90 sourcefile~mapl_geosatmaskmod.f90 MAPL_GeosatMaskMod.F90 sourcefile~mapl_geosatmaskmod.f90->sourcefile~mapl_generic.f90 sourcefile~mapl_historycollection.f90 MAPL_HistoryCollection.F90 sourcefile~mapl_historycollection.f90->sourcefile~mapl_generic.f90 sourcefile~mapl_historygridcomp.f90 MAPL_HistoryGridComp.F90 sourcefile~mapl_historygridcomp.f90->sourcefile~mapl_generic.f90 sourcefile~mapl_historygridcomp.f90->sourcefile~varspecmiscmod.f90 sourcefile~mapl_orbgridcompmod.f90 MAPL_OrbGridCompMod.F90 sourcefile~mapl_orbgridcompmod.f90->sourcefile~mapl_generic.f90 sourcefile~mapl_stationsamplermod.f90 MAPL_StationSamplerMod.F90 sourcefile~mapl_stationsamplermod.f90->sourcefile~mapl_generic.f90 sourcefile~mapl_trajectorymod.f90 MAPL_TrajectoryMod.F90 sourcefile~mapl_trajectorymod.f90->sourcefile~mapl_generic.f90 sourcefile~maplgeneric.f90 MaplGeneric.F90 sourcefile~maplgeneric.f90->sourcefile~statespecification.f90 sourcefile~maplgeneric.f90->sourcefile~varconn.f90 sourcefile~maplgeneric.f90->sourcefile~varconntype.f90 sourcefile~maplgeneric.f90->sourcefile~varspecmiscmod.f90 sourcefile~test_varspec.pf Test_VarSpec.pf sourcefile~test_varspec.pf->sourcefile~varspec.f90 sourcefile~varconnvector.f90 VarConnVector.F90 sourcefile~varconnvector.f90->sourcefile~varconntype.f90 sourcefile~varspecptr.f90 VarSpecPtr.F90 sourcefile~varspecptr.f90->sourcefile~varspec.f90 sourcefile~varspecvector.f90 VarSpecVector.F90 sourcefile~varspecvector.f90->sourcefile~varspec.f90

Source Code

module oomph_FieldSpec
   use oomph_AbstractStateItemSpec
   use oomph_DimsSpec
   use oomph_CouplingSpec
   use ESMF, only: ESMF_TYPEKIND_FLAG
   implicit none
   private

   public :: FieldSpec

   type, extends(AbstractStateItemSpec) :: FieldSpec
      private
      character(:), allocatable :: standard_name
      type(DimsSpec) :: dims_spec
      type(ESMF_TYPEKIND_FLAG) :: typekind
      type(CouplingSpec) :: coupling_spec

!!$      ! Override default allocation behavior
!!$      logical :: do_not_allocate
!!$      logical :: always_allocate
!!$      
!!$      ! Uncategorized initialization aspects
!!$      integer :: restart
!!$      class(*), allocatable :: default_value
!!$
      
   end type FieldSpec

   interface FieldSpec
      module procedure new_FieldSpec
   end interface FieldSpec

contains

   pure function new_FieldSpec(standard_name, dims_spec, typekind) result(field_spec)
      type(FieldSpec) :: field_spec
      character(*), intent(in) :: standard_name
      type(DimsSpec), intent(in) :: dims_spec
      type(ESMF_TYPEKIND_FLAG), intent(in) :: typekind

      field_spec%standard_name = standard_name
      field_spec%dims_spec = dims_spec
      field_spec%typekind = typekind

      field_spec%coupling_spec = CouplingSpec()
   end function new_FieldSpec

end module oomph_FieldSpec