model_state.f

Go to the documentation of this file.

!*******************************************************************************
!
!  Note separating the Doxygen comment block here so detailed decription is
!  found in the Module not the file.
!
!*******************************************************************************
      MODULE model_state
      USE data_parameters, ONLY: max_gaussprocess
 
      IMPLICIT NONE
 
!*******************************************************************************
!  module parameters
!*******************************************************************************
      INTEGER, PARAMETER :: model_state_all_off = 0
      INTEGER, PARAMETER ::                                                    &
     &   model_state_all_on = not(model_state_all_off)
 
      INTEGER, PARAMETER :: model_state_vmec_flag   = 0
      INTEGER, PARAMETER :: model_state_siesta_flag = 1
      INTEGER, PARAMETER :: model_state_ne_flag     = 2
      INTEGER, PARAMETER :: model_state_te_flag     = 3
      INTEGER, PARAMETER :: model_state_ti_flag     = 4
      INTEGER, PARAMETER :: model_state_shift_flag  = 5
      INTEGER, PARAMETER :: model_state_ze_flag     = 6
      INTEGER, PARAMETER :: model_state_signal_flag = 7
      INTEGER, PARAMETER :: model_state_sxrem_flag  = 8
 
      END MODULE