File: /nfs/home/0/users/jenkins/mfix.git/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(XXX)
18           IMPLICIT NONE
19           DOUBLE PRECISION, INTENT(IN) :: XXX
20           SCALE   = (XXX - P_ref) / P_scale
21           END FUNCTION SCALE
22     
23           DOUBLE PRECISION FUNCTION UNSCALE(XXX)
24           IMPLICIT NONE
25           DOUBLE PRECISION, INTENT(IN) :: XXX
26           UNSCALE = (XXX * P_scale + P_ref)
27           END FUNCTION UNSCALE
28     
29           END MODULE scales
30