do_write_kinetic_energy_transfer Subroutine

private subroutine do_write_kinetic_energy_transfer(file_id, nout)

Uses

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: file_id

NetCDF ID of the file to write to
integer, intent(in) :: nout

Current timestep

Contents

Source Code

do_write_kinetic_energy_transfer

Source Code

  subroutine do_write_kinetic_energy_transfer(file_id, nout)
    use diagnostics_kinetic_energy_transfer, only: calculate_kinetic_energy_transfer, write_kinetic_energy_transfer
    use mp, only: proc0
    !> NetCDF ID of the file to write to
    integer, intent(in) :: file_id
    !> Current timestep
    integer, intent(in) :: nout
    call calculate_kinetic_energy_transfer
    if (proc0) call write_kinetic_energy_transfer(file_id, nout)
  end subroutine do_write_kinetic_energy_transfer