Cleaned up - removed commented ifdef's

GEOS-ESM · Dec 2, 2024 · 50eb3cd · 50eb3cd
1 parent 0b24b7a
commit 50eb3cd
Show file tree

Hide file tree

Showing 7 changed files with 0 additions and 26 deletions.
diff --git a/generic3g/specs/BracketSpec.F90 b/generic3g/specs/BracketSpec.F90
@@ -47,9 +47,7 @@ module mapl3g_BracketSpec
 
       procedure :: make_adapters
       procedure :: set_geometry
-! #ifndef __GFORTRAN__
       procedure :: write_formatted
-! #endif
    end type BracketSpec
 
    interface BracketSpec
@@ -270,7 +268,6 @@ subroutine set_geometry(this, geom, vertical_grid, rc)
       _UNUSED_DUMMY(vertical_grid)
    end subroutine set_geometry
 
-! #ifndef __GFORTRAN__
    subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
       class(BracketSpec), intent(in) :: this
       integer, intent(in) :: unit
@@ -281,7 +278,6 @@ subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
 
       write(unit, "(a)", iostat=iostat, iomsg=iomsg) "BracketSpec(write not implemented yet)"
    end subroutine write_formatted
-! #endif
 
    function make_adapters(this, goal_spec, rc) result(adapters)
       type(StateItemAdapterWrapper), allocatable :: adapters(:)

diff --git a/generic3g/specs/FieldSpec.F90 b/generic3g/specs/FieldSpec.F90
@@ -114,9 +114,7 @@ module mapl3g_FieldSpec
 
       procedure :: set_geometry
 
-! #ifndef __GFORTRAN__
       procedure :: write_formatted
-! #endif
    end type FieldSpec
 
    interface FieldSpec
@@ -346,7 +344,6 @@ subroutine allocate(this, rc)
       _RETURN(ESMF_SUCCESS)
    end subroutine allocate
 
-! #ifndef __GFORTRAN__
    subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
       class(FieldSpec), intent(in) :: this
       integer, intent(in) :: unit
@@ -374,7 +371,6 @@ subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
       _UNUSED_DUMMY(iotype)
       _UNUSED_DUMMY(v_list)
    end subroutine write_formatted
-! #endif
 
    function get_ungridded_bounds(this, rc) result(bounds)
       type(LU_Bound), allocatable :: bounds(:)

diff --git a/generic3g/specs/InvalidSpec.F90 b/generic3g/specs/InvalidSpec.F90
@@ -38,9 +38,7 @@ module mapl3g_InvalidSpec
 
       procedure :: set_geometry => set_geometry
 
-! #ifndef __GFORTRAN__
       procedure :: write_formatted
-! #endif
       procedure :: make_adapters
    end type InvalidSpec
 
@@ -146,7 +144,6 @@ subroutine set_geometry(this, geom, vertical_grid, rc)
       _UNUSED_DUMMY(vertical_grid)
    end subroutine set_geometry
 
-! #ifndef __GFORTRAN__
    subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
       class(InvalidSpec), intent(in) :: this
       integer, intent(in) :: unit
@@ -157,7 +154,6 @@ subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
 
       write(unit, "(a)", iostat=iostat, iomsg=iomsg) "InvalidSpec()"
    end subroutine write_formatted
-! #endif
 
    ! Stub implementation
    function make_adapters(this, goal_spec, rc) result(adapters)

diff --git a/generic3g/specs/ServiceSpec.F90 b/generic3g/specs/ServiceSpec.F90
@@ -48,9 +48,7 @@ module mapl3g_ServiceSpec
       procedure :: add_to_bundle
       procedure :: set_geometry
 
-! #ifndef __GFORTRAN__
       procedure :: write_formatted
-! #endif
 !!$      procedure :: check_complete
    end type ServiceSpec
 
@@ -214,7 +212,6 @@ subroutine set_geometry(this, geom, vertical_grid, rc)
       _RETURN(_SUCCESS)
    end subroutine set_geometry
 
-! #ifndef __GFORTRAN__
    subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
       class(ServiceSpec), intent(in) :: this
       integer, intent(in) :: unit
@@ -225,7 +222,6 @@ subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
 
       write(unit, "(a)", iostat=iostat, iomsg=iomsg) "ServiceSpec(write not implemented yet)"
    end subroutine write_formatted
-! #endif
 
    function make_adapters(this, goal_spec, rc) result(adapters)
       type(StateItemAdapterWrapper), allocatable :: adapters(:)

diff --git a/generic3g/specs/StateItemSpec.F90 b/generic3g/specs/StateItemSpec.F90
@@ -160,7 +160,6 @@ subroutine I_set_geometry(this, geom, vertical_grid, rc)
          integer, optional, intent(out) :: rc
       end subroutine I_set_geometry
 
-! #ifndef __GFORTRAN__
       subroutine I_write_formatted(this, unit, iotype, v_list, iostat, iomsg)
          import StateItemSpec
          class(StateItemSpec), intent(in) :: this
@@ -170,7 +169,6 @@ subroutine I_write_formatted(this, unit, iotype, v_list, iostat, iomsg)
          integer, intent(out) :: iostat
          character(*), intent(inout) :: iomsg
       end subroutine I_write_formatted
-! #endif
 
       ! Returns an ordered list of adapters that priorities matching
       ! rules for connecting a family of extension to a goal spec.

diff --git a/generic3g/specs/StateSpec.F90 b/generic3g/specs/StateSpec.F90
@@ -40,9 +40,7 @@ module mapl3g_StateSpec
       procedure :: add_to_state
       procedure :: add_to_bundle
 
-! #ifndef __GFORTRAN__
       procedure :: write_formatted
-! #endif
    end type StateSpec
 
 contains
@@ -166,7 +164,6 @@ subroutine add_to_bundle(this, bundle, rc)
       _UNUSED_DUMMY(bundle)
    end subroutine add_to_bundle
 
-! #ifndef __GFORTRAN__
    subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
       class(StateSpec), intent(in) :: this
       integer, intent(in) :: unit
@@ -177,7 +174,6 @@ subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
 
       write(unit, "(a)", iostat=iostat, iomsg=iomsg) "StateSpec(write not implemented yet)"
    end subroutine write_formatted
-! #endif
 
    function make_adapters(this, goal_spec, rc) result(adapters)
       type(StateItemAdapterWrapper), allocatable :: adapters(:)

diff --git a/generic3g/specs/WildcardSpec.F90 b/generic3g/specs/WildcardSpec.F90
@@ -37,9 +37,7 @@ module mapl3g_WildcardSpec
       procedure :: add_to_bundle
       procedure :: set_geometry
 
-! #ifndef __GFORTRAN__
       procedure :: write_formatted
-! #endif
 
       procedure :: get_reference_spec
    end type WildcardSpec
@@ -214,7 +212,6 @@ subroutine set_geometry(this, geom, vertical_grid, rc)
       _RETURN(_SUCCESS)
    end subroutine set_geometry
 
-! #ifndef __GFORTRAN__
    subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
       class(WildcardSpec), intent(in) :: this
       integer, intent(in) :: unit
@@ -225,7 +222,6 @@ subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
 
       write(unit, "(a)", iostat=iostat, iomsg=iomsg) "WildcardSpec(write not implemented yet)"
    end subroutine write_formatted
-! #endif
 
    function make_adapters(this, goal_spec, rc) result(adapters)
       type(StateItemAdapterWrapper), allocatable :: adapters(:)