scales_mod.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: scales_mod.f                                           C
!                                                                      C
!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC

      MODULE scales

! reference pressure
      DOUBLE PRECISION :: p_ref

! pressure scale
      DOUBLE PRECISION :: p_scale

      CONTAINS

      DOUBLE PRECISION FUNCTION scale_pressure(XXX)
      IMPLICIT NONE
      DOUBLE PRECISION, INTENT(IN) :: XXX
      scale_pressure   = (xxx - p_ref) / p_scale
      END FUNCTION scale_pressure

      DOUBLE PRECISION FUNCTION unscale_pressure(XXX)
      IMPLICIT NONE
      DOUBLE PRECISION, INTENT(IN) :: XXX
      unscale_pressure = (xxx * p_scale + p_ref)
      END FUNCTION unscale_pressure

      END MODULE scales