Ignore:
Timestamp:
Jun 9, 2017 12:18:47 PM (4 years ago)
Author:
maronga
Message:

major revisions in land surface model

File:
1 edited

Legend:

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

    r2265 r2270  
    2525! -----------------
    2626! $Id$
     27! Removed 2 timeseries (shf_eb + qsws_eb). Removed _eb suffixes
     28!
     29! 2265 2017-06-08 16:58:28Z schwenkel
    2730! Unused variables removed.
    2831!
     
    250253             'm2/s2  ', 'm2/s2  ', 'm2/s2  ', 'm2/s2  ', 'number2' /)
    251254
    252     INTEGER(iwp) ::  dots_num  = 33  !< number of timeseries defined by default
     255    INTEGER(iwp) ::  dots_num  = 25  !< number of timeseries defined by default
    253256    INTEGER(iwp) ::  dots_soil = 26  !< starting index for soil-timeseries
    254     INTEGER(iwp) ::  dots_rad  = 34  !< starting index for radiation-timeseries
     257    INTEGER(iwp) ::  dots_rad  = 32  !< starting index for radiation-timeseries
    255258
    256259    CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_label =                    &
     
    263266             'w"u"0        ', 'w"v"0        ', 'w"q"0        ',                &
    264267             'ol           ', 'q*           ', 'w"s"         ',                &
    265              's*           ', 'ghf_eb       ', 'shf_eb       ',                &
    266              'qsws_eb      ', 'qsws_liq_eb  ', 'qsws_soil_eb ',                &
    267              'qsws_veg_eb  ', 'r_a          ', 'r_s          ',                &
     268             's*           ', 'ghf          ', 'qsws_liq     ',                &
     269             'qsws_soil    ', 'qsws_veg     ', 'r_a          ',                &
     270             'r_s          ',                                                  &
    268271             'rad_net      ', 'rad_lw_in    ', 'rad_lw_out   ',                &
    269272             'rad_sw_in    ', 'rad_sw_out   ', 'rrtm_aldif   ',                &
    270273             'rrtm_aldir   ', 'rrtm_asdif   ', 'rrtm_asdir   ',                &                                               
    271              ( 'unknown      ', i9 = 1, dots_max-42 ) /)
     274             ( 'unknown      ', i9 = 1, dots_max-40 ) /)
    272275
    273276    CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_unit =                     &
     
    281284             'm            ', 'kg/kg        ', 'kg m/(kg s)  ',                &
    282285             'kg/kg        ', 'W/m2         ', 'W/m2         ',                &
    283              'W/m2         ', 'W/m2         ', 'W/m2         ',                &
    284              'W/m2         ', 's/m          ', 's/m          ',                &
     286             'W/m2         ', 'W/m2         ', 's/m          ',                &
     287             's/m          ',                                                  &
    285288             'W/m2         ', 'W/m2         ', 'W/m2         ',                &
    286289             'W/m2         ', 'W/m2         ', '             ',                &
    287290             '             ', '             ', '             ',                &
    288              ( 'unknown      ', i9 = 1, dots_max-42 ) /)
     291             ( 'unknown      ', i9 = 1, dots_max-40 ) /)
    289292
    290293    CHARACTER (LEN=16) :: heatflux_output_unit     !< unit for heatflux output
Note: See TracChangeset for help on using the changeset viewer.