Ignore:
Timestamp:
Jul 12, 2016 4:34:24 PM (5 years ago)
Author:
suehring
Message:

Separate balance equations for humidity and passive_scalar

File:
1 edited

Legend:

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

    r1958 r1960  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Additional labels and units for timeseries output of passive scalar-related
     22! quantities
    2223!
    2324! Former revisions:
     
    174175             'm2/s2  ', 'm2/s2  ', 'm2/s2  ', 'm2/s2  ', 'number2' /)
    175176
    176     INTEGER(iwp) ::  dots_num  = 31  !< number of timeseries defined by default
    177     INTEGER(iwp) ::  dots_soil = 24  !< starting index for soil-timeseries
    178     INTEGER(iwp) ::  dots_rad  = 32  !< starting index for radiation-timeseries
     177    INTEGER(iwp) ::  dots_num  = 33  !< number of timeseries defined by default
     178    INTEGER(iwp) ::  dots_soil = 26  !< starting index for soil-timeseries
     179    INTEGER(iwp) ::  dots_rad  = 34  !< starting index for radiation-timeseries
    179180
    180181    CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_label =                    &
     
    186187             'wpt          ', 'pt(0)        ', 'pt(z_mo)     ',                &
    187188             'w"u"0        ', 'w"v"0        ', 'w"q"0        ',                &
    188              'ol           ', 'q*           ', 'ghf_eb       ',                &
    189              'shf_eb       ', 'qsws_eb      ', 'qsws_liq_eb  ',                &
    190              'qsws_soil_eb ', 'qsws_veg_eb  ', 'r_a          ',                &
    191              'r_s          ', 'rad_net      ', 'rad_lw_in    ',                &
    192              'rad_lw_out   ', 'rad_sw_in    ', 'rad_sw_out   ',                &
    193              'rrtm_aldif   ', 'rrtm_aldir   ', 'rrtm_asdif   ',                &
    194              'rrtm_asdir   ',                                                  &
    195              ( 'unknown      ', i9 = 1, dots_max-40 ) /)
     189             'ol           ', 'q*           ', 'w"s"         ',                &
     190             's*           ', 'ghf_eb       ', 'shf_eb       ',                &
     191             'qsws_eb      ', 'qsws_liq_eb  ', 'qsws_soil_eb ',                &
     192             'qsws_veg_eb  ', 'r_a          ', 'r_s          ',                &
     193             'rad_net      ', 'rad_lw_in    ', 'rad_lw_out   ',                &
     194             'rad_sw_in    ', 'rad_sw_out   ', 'rrtm_aldif   ',                &
     195             'rrtm_aldir   ', 'rrtm_asdif   ', 'rrtm_asdir   ',                &                                               
     196             ( 'unknown      ', i9 = 1, dots_max-42 ) /)
    196197
    197198    CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_unit =                     &
     
    203204             'K m/s        ', 'K            ', 'K            ',                &
    204205             'm2/s2        ', 'm2/s2        ', 'kg m/s       ',                &
    205              'm            ', 'kg/kg        ', '             ',                &
     206             'm            ', 'kg/kg        ', 'kg m/(kg s)  ',                &
     207             'kg/kg        ', '             ', '             ',                &
    206208             '             ', '             ', '             ',                &
    207              '             ', 'W/m2         ', 's/m          ',                &
    208              '             ', 'W/m2         ', 'W/m2         ',                &
     209             'W/m2         ', 's/m          ', '             ',                &
    209210             'W/m2         ', 'W/m2         ', 'W/m2         ',                &
     211             'W/m2         ', 'W/m2         ', '             ',                &
    210212             '             ', '             ', '             ',                &
    211              '             ',                                                  &
    212              ( 'unknown      ', i9 = 1, dots_max-40 ) /)
     213             ( 'unknown      ', i9 = 1, dots_max-42 ) /)
    213214
    214215    CHARACTER (LEN=9), DIMENSION(300) ::  dopr_unit = 'unknown'
Note: See TracChangeset for help on using the changeset viewer.