File: N:\mfix\model\scales_mod.f

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2     !                                                                      C
3     !  Module name: scales_mod.f                                           C
4     !                                                                      C
5     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
6     
7           MODULE scales
8     
9     ! reference pressure
10           DOUBLE PRECISION :: P_ref
11     
12     ! pressure scale
13           DOUBLE PRECISION :: P_scale
14     
15           CONTAINS
16     
17           DOUBLE PRECISION FUNCTION SCALE_PRESSURE(XXX)
18           IMPLICIT NONE
19           DOUBLE PRECISION, INTENT(IN) :: XXX
20           SCALE_PRESSURE   = (XXX - P_ref) / P_scale
21           END FUNCTION SCALE_PRESSURE
22     
23           DOUBLE PRECISION FUNCTION UNSCALE_PRESSURE(XXX)
24           IMPLICIT NONE
25           DOUBLE PRECISION, INTENT(IN) :: XXX
26           UNSCALE_PRESSURE = (XXX * P_scale + P_ref)
27           END FUNCTION UNSCALE_PRESSURE
28     
29           END MODULE scales
30