scale_index.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
module scale_index
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  !-----------------------------------------------------------------------------
  use scale_stdio
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  integer, public, parameter :: i_dens = 1
  integer, public, parameter :: i_momz = 2
  integer, public, parameter :: i_momx = 3
  integer, public, parameter :: i_momy = 4
  integer, public, parameter :: i_rhot = 5
  integer, public, parameter :: i_qtrc = 6

  integer, public            :: va ! number of the additional prognostic variables
end module scale_index