Changeset 3663 for trunk/LMDZ.GENERIC/libf/phystd/comcstfi_mod.F90

Timestamp:

Feb 27, 2025, 7:03:20 PM (4 months ago)

Author:

gmilcareck

Message:

Generic PCM:
Cleaning up the code. The gas constant and Avogadro number values
was not the same between the files in the model.
We choose the value recommended by the 2019 revision of the SI.
R=8.314463 J.K-1.mol-1 and NA=6.022141e23 mol-1.
GM

File:

• trunk/LMDZ.GENERIC/libf/phystd/comcstfi_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/comcstfi_mod.F90

@@ -5 +5 @@
       REAL,SAVE :: rad ! radius of the planet (m)
       REAL,SAVE :: g ! gravity (m/s2)
-      REAL,SAVE :: r ! reduced gas constant (r=8.314511/(mugaz/1000.0))
+      REAL,SAVE :: r ! reduced gas constant (r=8.314463/(mugaz/1000.0))
       REAL,SAVE :: cpp ! Cp of the atmosphere
       REAL,SAVE :: rcp ! r/cpp
       REAL,SAVE :: mugaz ! molar mass of the atmosphere (g/mol)
       REAL,SAVE :: omeg ! planet rotation rate (rad/s)
-      REAL,SAVE :: avocado ! something like 6.022e23
+      REAL,SAVE :: avocado !  6.022141e23
 !$OMP THREADPRIVATE(pi,rad,g,r,cpp,rcp,mugaz,omeg,avocado)