ocean_tides_exit_data_impl Subroutine

private subroutine ocean_tides_exit_data_impl(this)

Arguments

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

Called by

proc~~ocean_tides_exit_data_impl~~CalledByGraph proc~ocean_tides_exit_data_impl ocean_tides_exit_data_impl proc~ocean_tides_exit_data ocean_tides_t%ocean_tides_exit_data proc~ocean_tides_exit_data->proc~ocean_tides_exit_data_impl

Source Code

   subroutine ocean_tides_exit_data_impl(this)
      type(ocean_tides_t), intent(inout) :: this
      if (allocated(this%species_c)) then
         !$acc exit data delete(this%eta_forcing, this%eta_sal, &
         !$acc                  this%eta_eq, this%sin_struct, this%cos_struct, &
         !$acc                  this%amp_sin, this%amp_cos, this%u_nodal, &
         !$acc                  this%f_nodal, this%phase0, this%love_c, &
         !$acc                  this%amp_c, this%omega_c, this%species_c)
      end if
   end subroutine ocean_tides_exit_data_impl