anchor.diff:    !
     !------ Definition of PI
     real(8), public, save :: CNST_PI = 3.14159265358979323846D0
  -  !
  +
  +  real(8), public, save :: CNST_D2R
  +
     !------ Allowable minimum value
     real(8), public, parameter :: CNST_EPS_ZERO = 1.0D-99
     !
  
positive.code: 
      !--- calculate other parameters
      CNST_PI    = 4.D0 * atan( 1.D0 )
  
      CNST_CV    = CNST_CP - CNST_RAIR
      CNST_GAMMA = CNST_CP / CNST_CV
  
negative.code:        ADM_proc_stop
      implicit none
  
      real(8) :: earth_radius               ! Earth radius
      real(8) :: earth_angvel               ! Anguler velocity of the earth
      real(8) :: small_planet_factor = 1.D0 ! small planet factor
      real(8) :: earth_gravity              ! Gravitational accelaration
      real(8) :: gas_cnst                   ! Gas constant of dry air
      real(8) :: gas_cnst_vap               ! Gas constant of water vapour
      real(8) :: specific_heat_pre          ! Specific heat of air( const pre )
      real(8) :: specific_heat_pre_vap      ! Specific heat of water vapour ( const pre )
      real(8) :: latent_heat_vap            ! latent heat of vaporization LH0 ( 0 deg )
      real(8) :: latent_heat_sub            ! latent heat of sublimation LHS0 ( 0 deg )
  
      namelist / CNSTPARAM / &
         earth_radius,          &
         earth_angvel,          &
         small_planet_factor,   &
         earth_gravity,         &
         gas_cnst,              &
         gas_cnst_vap,          &
         specific_heat_pre,     &
         specific_heat_pre_vap, &
         latent_heat_vap,       &
         latent_heat_sub
  
      integer :: ierr
      !---------------------------------------------------------------------------
  