ocean_metrics_destroy Subroutine

private subroutine ocean_metrics_destroy(this)

Type Bound

ocean_metrics_t

Arguments

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

Called by

proc~~ocean_metrics_destroy~~CalledByGraph proc~ocean_metrics_destroy ocean_metrics_t%ocean_metrics_destroy proc~bt_wide_destroy bt_wide_t%bt_wide_destroy proc~bt_wide_destroy->proc~ocean_metrics_destroy proc~metrics_fill_from_supergrid metrics_fill_from_supergrid proc~metrics_fill_from_supergrid->proc~ocean_metrics_destroy proc~metrics_fill_tripolar metrics_fill_tripolar proc~metrics_fill_tripolar->proc~ocean_metrics_destroy proc~configure_ocean_metrics configure_ocean_metrics proc~configure_ocean_metrics->proc~metrics_fill_from_supergrid proc~configure_ocean_metrics->proc~metrics_fill_tripolar proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_metrics proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Source Code

   subroutine ocean_metrics_destroy(this)
      class(ocean_metrics_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%dxT)) deallocate (this%dxT)
      if (allocated(this%dyT)) deallocate (this%dyT)
      if (allocated(this%dxCu)) deallocate (this%dxCu)
      if (allocated(this%dyCu)) deallocate (this%dyCu)
      if (allocated(this%dxCv)) deallocate (this%dxCv)
      if (allocated(this%dyCv)) deallocate (this%dyCv)
      if (allocated(this%dxBu)) deallocate (this%dxBu)
      if (allocated(this%dyBu)) deallocate (this%dyBu)
      if (allocated(this%dy_cu)) deallocate (this%dy_cu)
      if (allocated(this%dx_cv)) deallocate (this%dx_cv)
      if (allocated(this%dy_cu_bt)) deallocate (this%dy_cu_bt)
      if (allocated(this%dx_cv_bt)) deallocate (this%dx_cv_bt)
      if (allocated(this%por_bed)) deallocate (this%por_bed)
      if (allocated(this%por_dmin_u)) deallocate (this%por_dmin_u)
      if (allocated(this%por_dmax_u)) deallocate (this%por_dmax_u)
      if (allocated(this%por_davg_u)) deallocate (this%por_davg_u)
      if (allocated(this%por_dmin_v)) deallocate (this%por_dmin_v)
      if (allocated(this%por_dmax_v)) deallocate (this%por_dmax_v)
      if (allocated(this%por_davg_v)) deallocate (this%por_davg_v)
      if (allocated(this%por_face_area_u)) deallocate (this%por_face_area_u)
      if (allocated(this%por_face_area_v)) deallocate (this%por_face_area_v)
      if (allocated(this%open_u)) deallocate (this%open_u)
      if (allocated(this%open_v)) deallocate (this%open_v)
      if (allocated(this%z_draft)) deallocate (this%z_draft)
      if (allocated(this%cover_frac)) deallocate (this%cover_frac)
      if (allocated(this%p_ice_ref)) deallocate (this%p_ice_ref)
      if (allocated(this%wet_T)) deallocate (this%wet_T)
      if (allocated(this%wet_u)) deallocate (this%wet_u)
      if (allocated(this%wet_v)) deallocate (this%wet_v)
      if (allocated(this%wet_q)) deallocate (this%wet_q)
      if (allocated(this%areaT)) deallocate (this%areaT)
      if (allocated(this%areaCu)) deallocate (this%areaCu)
      if (allocated(this%areaCv)) deallocate (this%areaCv)
      if (allocated(this%areaBu)) deallocate (this%areaBu)
      if (allocated(this%idxT)) deallocate (this%idxT)
      if (allocated(this%idyT)) deallocate (this%idyT)
      if (allocated(this%idxCu)) deallocate (this%idxCu)
      if (allocated(this%idyCu)) deallocate (this%idyCu)
      if (allocated(this%idxCv)) deallocate (this%idxCv)
      if (allocated(this%idyCv)) deallocate (this%idyCv)
      if (allocated(this%iareaT)) deallocate (this%iareaT)
      if (allocated(this%iareaBu)) deallocate (this%iareaBu)
      if (allocated(this%iareaCu)) deallocate (this%iareaCu)
      if (allocated(this%iareaCv)) deallocate (this%iareaCv)
      if (allocated(this%geolatT)) deallocate (this%geolatT)
      if (allocated(this%geolonT)) deallocate (this%geolonT)
      if (allocated(this%geolatBu)) deallocate (this%geolatBu)
      if (allocated(this%geolonBu)) deallocate (this%geolonBu)
      if (allocated(this%angle_dx)) deallocate (this%angle_dx)
      if (allocated(this%dy_dxT)) deallocate (this%dy_dxT)
      if (allocated(this%dx_dyT)) deallocate (this%dx_dyT)
      if (allocated(this%dy_dxBu)) deallocate (this%dy_dxBu)
      if (allocated(this%dx_dyBu)) deallocate (this%dx_dyBu)
      if (allocated(this%dx2h)) deallocate (this%dx2h)
      if (allocated(this%dy2h)) deallocate (this%dy2h)
      if (allocated(this%dx2q)) deallocate (this%dx2q)
      if (allocated(this%dy2q)) deallocate (this%dy2q)
   end subroutine ocean_metrics_destroy