Changeset 3828 for trunk/LMDZ.VENUS/libf/phyvenus/mmol_mod.F90

Timestamp:

Jul 3, 2025, 3:50:22 PM (6 weeks ago)

Author:

ikovalenko

Message:

 

File:

• trunk/LMDZ.VENUS/libf/phyvenus/mmol_mod.F90 (moved) (moved from trunk/LMDZ.VENUS/libf/phyvenus/mmol.h) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/mmol_mod.F90

@@ -1 @@
-    
 
+MODULE mmol_mod
+  IMPLICIT NONE
+  PUBLIC
 
-      real,parameter :: mmolo=16., mmolco=28., mmolco2=44., mmoln2=28. ! molar mass g/mol
-      real,parameter :: mmolh2=2., mmolh2o2=34., mmolh2o=18., mmolo2=32. 
-      real,parameter :: mmolo3=48., mmolno=30., mmolno2=46., mmoln=14. 
-      real,parameter :: mmolh=1.
+  REAL, PARAMETER :: mmolo   = 16.0
+  REAL, PARAMETER :: mmolco  = 28.0
+  REAL, PARAMETER :: mmolco2 = 44.0
+  REAL, PARAMETER :: mmoln2  = 28.0
+  REAL, PARAMETER :: mmolh2  = 2.0
+  REAL, PARAMETER :: mmolh2o2= 34.0
+  REAL, PARAMETER :: mmolh2o = 18.0
+  REAL, PARAMETER :: mmolo2  = 32.0
+  REAL, PARAMETER :: mmolo3  = 48.0
+  REAL, PARAMETER :: mmolno  = 30.0
+  REAL, PARAMETER :: mmolno2 = 46.0
+  REAL, PARAMETER :: mmoln   = 14.0
+  REAL, PARAMETER :: mmolh   = 1.0
+
+END MODULE mmol_mod