Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lmdz_chem_spla.f90

Timestamp:

Aug 3, 2024, 2:56:58 PM (7 weeks ago)

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lmdz_chem_spla.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/chem_spla.h) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lmdz_chem_spla.f90

@@ +1 @@
+MODULE lmdz_chem_spla
+  IMPLICIT NONE; PRIVATE
+  PUBLIC ss_bins, masse_ammsulfate
 
-! $Header$
+  INTEGER, PARAMETER :: ss_bins = 2
+  REAL, PARAMETER :: masse_ammsulfate = 132.0  !--g mol-1
+END MODULE lmdz_chem_spla
 
-      INTEGER ss_bins
-      PARAMETER (ss_bins=2)
-
-!      INTEGER nbreg_dust,nbreg_ind, nbreg_bb
-!      PARAMETER (nbreg_dust=11,nbreg_ind=13,nbreg_bb=15)
-
-      REAL masse_ammsulfate
-      PARAMETER (masse_ammsulfate=132.0)              !--g mol-1
-
-