ocean_sponge_exit_data_impl Subroutine

private subroutine ocean_sponge_exit_data_impl(this)

Arguments

Type IntentOptional Attributes Name
type(ocean_sponge_t), intent(inout) :: this

Called by

proc~~ocean_sponge_exit_data_impl~~CalledByGraph proc~ocean_sponge_exit_data_impl ocean_sponge_exit_data_impl proc~ocean_sponge_exit_data ocean_sponge_t%ocean_sponge_exit_data proc~ocean_sponge_exit_data->proc~ocean_sponge_exit_data_impl

Source Code

   subroutine ocean_sponge_exit_data_impl(this)
      type(ocean_sponge_t), intent(inout) :: this
      if (.not. this%is_init) return
      !$acc exit data delete(this%idamp_h, this%idamp_u, this%idamp_v, &
      !$acc&                 this%ref_tracer, this%u_ref, this%v_ref, this%z_top)
   end subroutine ocean_sponge_exit_data_impl