Changeset 3137 for palm

Timestamp:

Jul 17, 2018 6:44:21 AM (6 years ago)

Author:

maronga

Message:

minor bugfix in radiation model

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! String length for trace_names fixed
+!
+! 
+! 3127 2018-07-15 08:01:25Z maronga
 ! A few pavement parameters updated.
 ! 
@@ -4023 +4027 @@
        CHARACTER(LEN=5), DIMENSION(num_trace_gases), PARAMETER ::              & !< trace gas names
            trace_names = (/'O3   ', 'CO2  ', 'CH4  ', 'N2O  ', 'O2   ',        &
-                           'CFC11', 'CFC12', 'CFC22', 'CCL4 ', 'H2O'/)
+                           'CFC11', 'CFC12', 'CFC22', 'CCL4 ', 'H2O  '/)
 
        INTEGER(iwp) :: id,     & !< NetCDF id