Changeset 5452 for LMDZ6/branches/contrails/libf/misc/readTracFiles_mod.f90
- Timestamp:
- Dec 23, 2024, 6:12:29 PM (2 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/contrails/libf/misc/readTracFiles_mod.f90
r5393 r5452 122 122 !--- SOME PARAMETERS THAT ARE NOT LIKELY TO CHANGE OFTEN 123 123 CHARACTER(LEN=maxlen), SAVE :: tran0 = 'air' !--- Default transporting fluid 124 CHARACTER(LEN=maxlen), PARAMETER :: old_phases = 'vlibfc ' !--- Old phases for water (no separator)125 CHARACTER(LEN=maxlen), PARAMETER :: known_phases = 'glsbfc ' !--- Known phases initials124 CHARACTER(LEN=maxlen), PARAMETER :: old_phases = 'vlibfca' !--- Old phases for water (no separator) 125 CHARACTER(LEN=maxlen), PARAMETER :: known_phases = 'glsbfca' !--- Known phases initials 126 126 INTEGER, PARAMETER :: nphases = LEN_TRIM(known_phases) !--- Number of phases 127 127 CHARACTER(LEN=maxlen), SAVE :: phases_names(nphases) & !--- Known phases names 128 = ['gaseous ', 'liquid ', 'solid ','blownSnow', 'fracCloud', 'cldVapRat' ]128 = ['gaseous ', 'liquid ', 'solid ','blownSnow', 'fracCloud', 'cldVapRat', 'aviContRa'] 129 129 CHARACTER(LEN=1), SAVE :: phases_sep = '_' !--- Phase separator 130 130 CHARACTER(LEN=maxlen), SAVE :: isoFile = 'isotopes_params.def'!--- Name of the isotopes parameters file
Note: See TracChangeset
for help on using the changeset viewer.