ocean_geothermal_destroy Subroutine

private subroutine ocean_geothermal_destroy(this)

No-op shell mirroring the surface-flux destroy.

Type Bound

ocean_geothermal_t

Arguments

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

Called by

proc~~ocean_geothermal_destroy~~CalledByGraph proc~ocean_geothermal_destroy ocean_geothermal_t%ocean_geothermal_destroy proc~engine_teardown engine_teardown proc~engine_teardown->proc~ocean_geothermal_destroy proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_teardown proc~driver_validate driver_validate proc~driver_validate->proc~engine_teardown proc~rdb_ocean_destroy rdb_ocean_destroy proc~rdb_ocean_destroy->proc~engine_teardown proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Source Code

   subroutine ocean_geothermal_destroy(this)
      !! No-op shell mirroring the surface-flux destroy.
      class(ocean_geothermal_t), intent(inout) :: this
      this%is_init = .false.
   end subroutine ocean_geothermal_destroy