variables.f90

Go to the documentation of this file.

!*****************************************************************************
!
!*****************************************************************************   

MODULE variables

  use, intrinsic :: iso_fortran_env
  use, intrinsic :: ieee_arithmetic

  IMPLICIT NONE

  INTEGER, PARAMETER :: sp = selected_real_kind (p=6,r=35)
  INTEGER, PARAMETER :: dp = selected_real_kind (p=15,r=300)

  INTEGER, PARAMETER :: wp = dp
  
  REAL*8 :: gi          
  
  REAL*8, PARAMETER :: k_b = 1.3806488e-23_wp 

  REAL*8 :: pi_g        

  INTEGER :: verbose_level

  LOGICAL :: dakota_flag

  LOGICAL :: hysplit_flag

  LOGICAL :: nbl_stop

  LOGICAL :: flag_nbl

  LOGICAL :: entr_abv_nbl_flag

  LOGICAL :: umbrella_flag

  LOGICAL :: steady_flag
  
  INTEGER :: n_cloud

  REAL(wp) :: height_nbl 

  REAL(wp) :: radius_nbl
  
  INTEGER, PARAMETER :: max_n_part = 50

  LOGICAL :: inversion_flag

  LOGICAL :: water_flag

  LOGICAL :: aggregation_flag
  
  LOGICAL :: write_flag

  REAL(wp) :: height_obj 
  REAL(wp) :: r_min
  REAL(wp) :: r_max
  REAL(wp) :: w_min
  REAL(wp) :: w_max
  INTEGER :: n_values

  INTEGER :: indent_space

  CHARACTER(LEN=40) fmt

  SAVE

CONTAINS
  
  !------------------------------------------------------------------------------
  !
  !------------------------------------------------------------------------------
  
  LOGICAL FUNCTION isset(var)

    IMPLICIT NONE
    REAL(wp) :: var

    isset = .NOT.ieee_is_nan(var)

    RETURN

  END FUNCTION isset
  
END MODULE variables