Ignore:
Timestamp:
Jul 17, 2018 6:44:21 AM (6 years ago)
Author:
maronga
Message:

minor bugfix in radiation model

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r3127 r3137  
    2828! -----------------
    2929! $Id$
     30! String length for trace_names fixed
     31!
     32!
     33! 3127 2018-07-15 08:01:25Z maronga
    3034! A few pavement parameters updated.
    3135!
     
    40234027       CHARACTER(LEN=5), DIMENSION(num_trace_gases), PARAMETER ::              & !< trace gas names
    40244028           trace_names = (/'O3   ', 'CO2  ', 'CH4  ', 'N2O  ', 'O2   ',        &
    4025                            'CFC11', 'CFC12', 'CFC22', 'CCL4 ', 'H2O'/)
     4029                           'CFC11', 'CFC12', 'CFC22', 'CCL4 ', 'H2O  '/)
    40264030
    40274031       INTEGER(iwp) :: id,     & !< NetCDF id
Note: See TracChangeset for help on using the changeset viewer.