Changeset 11 for readTracFiles_mod.f90

Timestamp:

Feb 4, 2022, 2:58:56 PM (3 years ago)

Author:

dcugnet

Message:

Add a new phase type: H2O_r is sursaturated water in the clouds (modif.: O. Boucher)

File:

• readTracFiles_mod.f90 (modified) (2 diffs)

readTracFiles_mod.f90

@@ -41 +41 @@
   !--- SOME PARAMETERS THAT ARE NOT LIKELY TO CHANGE OFTEN
   CHARACTER(LEN=maxlen), SAVE      :: tran0        = 'air'           !--- Default transporting fluid
-  CHARACTER(LEN=maxlen), PARAMETER :: old_phases   = 'vli'           !--- Old phases for water (no separator)
-  CHARACTER(LEN=maxlen), PARAMETER :: known_phases = 'gls'           !--- Known phases initials
+  CHARACTER(LEN=maxlen), PARAMETER :: old_phases   = 'vlir'          !--- Old phases for water (no separator)
+  CHARACTER(LEN=maxlen), PARAMETER :: known_phases = 'glsr'          !--- Known phases initials
   INTEGER,               PARAMETER :: nphases=LEN_TRIM(known_phases) !--- Number of phases
   CHARACTER(LEN=maxlen), SAVE      :: phases_names(nphases) &        !--- Known phases names
-                                = ['gaseous', 'liquid ', 'solid  ']
+                                = ['gaseous', 'liquid ', 'solid  ', 'cloud  ']
   CHARACTER(LEN=1), SAVE :: phases_sep  =  '_'                       !--- Phase separator
   LOGICAL,          SAVE :: tracs_merge = .TRUE.                     !--- Merge/stack tracers lists
@@ -1372 +1372 @@
 
 END MODULE readTracFiles_mod
+