Changeset 14 for readTracFiles_mod.f90

Timestamp:

Mar 2, 2022, 6:33:27 PM (3 years ago)

Author:

dcugnet

Message:

The additional phase modifications were missing in the previous commit.

File:

• readTracFiles_mod.f90 (modified) (2 diffs)

readTracFiles_mod.f90

@@ -42 +42 @@
   !--- 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
@@ -761 +761 @@
   tm => dBase(idb)%trac
   nq = SIZE(tm)
-  !--- BEWARE ! Can't always already use the "getKeyByName" functions.
+  !--- BEWARE ! Can't use the "getKeyByName" functions yet.
   !             Names must first include the phases for tracers defined on multiple lines.
   hadv = str2int([(fgetKey(iq, 'hadv',  tm(:)%keys, '10'), iq=1, nq)])