Changeset 4075

Timestamp:

Feb 3, 2022, 10:08:23 AM (2 years ago)

Author:

oboucher

Message:

Add the possibility of a cloud H2O tracer (nqo=4) for ok_ice_sursat=y and 4 H2O tracers in tarceur.def

File:

• LMDZ6/trunk/libf/misc/readTracFiles_mod.f90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/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