Ignore:
Timestamp:
Sep 19, 2016 5:29:57 PM (5 years ago)
Author:
kanani
Message:

changes related to steering and formating of urban surface model

File:
1 edited

Legend:

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

    r2008 r2011  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! +urban_surface, +lsf_exception, +varnamelength
    2323!
    2424! Former revisions:
     
    589589   
    590590    INTEGER, PARAMETER :: mask_xyz_dimension = 100, max_masks = 50
     591    INTEGER(iwp), PARAMETER ::  varnamelength = 30  !< length of output variable names
    591592
    592593    TYPE(file_status), DIMENSION(200+2*max_masks) ::                &
     
    634635    CHARACTER (LEN=1000) ::  message_string = ' '
    635636
    636     CHARACTER (LEN=20), DIMENSION(500) ::  data_output = ' ',    &
     637    CHARACTER (LEN=varnamelength), DIMENSION(500) ::  data_output = ' ',    &
    637638                                           data_output_user = ' ', doav = ' '
    638     CHARACTER (LEN=20), DIMENSION(max_masks,100) ::  &
     639    CHARACTER (LEN=varnamelength), DIMENSION(max_masks,100) ::  &
    639640         data_output_masks = ' ', data_output_masks_user = ' '
    640641
    641     CHARACTER (LEN=20), DIMENSION(300) ::  data_output_pr = ' '
    642     CHARACTER (LEN=20), DIMENSION(200) ::  data_output_pr_user = ' '
    643     CHARACTER (LEN=20), DIMENSION(max_masks,0:1,100) ::  domask = ' '
    644     CHARACTER (LEN=20), DIMENSION(0:1,500) ::  do2d = ' ', do3d = ' '
     642    CHARACTER (LEN=varnamelength), DIMENSION(300) ::  data_output_pr = ' '
     643    CHARACTER (LEN=varnamelength), DIMENSION(200) ::  data_output_pr_user = ' '
     644    CHARACTER (LEN=varnamelength), DIMENSION(max_masks,0:1,100) ::  domask = ' '
     645    CHARACTER (LEN=varnamelength), DIMENSION(0:1,500) ::  do2d = ' ', do3d = ' '
    645646
    646647    INTEGER(iwp), PARAMETER :: fl_max = 100, var_fl_max = 20
     
    728729                inflow_r = .FALSE., inflow_s = .FALSE., &
    729730                large_scale_forcing = .FALSE., &
    730                 large_scale_subsidence = .FALSE., lsf_surf = .TRUE., &
     731                large_scale_subsidence = .FALSE.
     732    LOGICAL ::  lsf_exception = .FALSE.  !< temporary flag for use of lsf with buildings on flat terrain
     733    LOGICAL ::  lsf_surf = .TRUE., &
    731734                lsf_vert = .TRUE., lptnudge = .FALSE., lqnudge = .FALSE., &
    732735                lunudge = .FALSE., lvnudge = .FALSE., lwnudge = .FALSE., &
     
    736739                microphysics_seifert = .FALSE., &
    737740                mg_switch_to_pe0 = .FALSE., &
    738                 monotonic_adjustment = .FALSE., virtual_flight = .FALSE.
     741                monotonic_adjustment = .FALSE.
    739742    LOGICAL ::  nest_bound_l = .FALSE. !< nested boundary on left side
    740743    LOGICAL ::  nest_bound_n = .FALSE. !< nested boundary on north side
     
    752755                stop_dt = .FALSE., synchronous_exchange = .FALSE., &
    753756                terminate_run = .FALSE., transpose_compute_overlap = .FALSE., &
    754                 turbulent_inflow = .FALSE., &
    755                 use_cmax = .TRUE., use_initial_profile_as_reference = .FALSE., &
     757                turbulent_inflow = .FALSE.
     758    LOGICAL ::  urban_surface = .FALSE.  !< flag for urban surface model
     759    LOGICAL ::  use_cmax = .TRUE., use_initial_profile_as_reference = .FALSE., &
    756760                use_prescribed_profile_data = .FALSE., &
    757761                use_single_reference_value = .FALSE., &
    758762                use_subsidence_tendencies = .FALSE., &
    759763                use_surface_fluxes = .FALSE., use_top_fluxes = .FALSE., &
    760                 use_ug_for_galilei_tr = .TRUE., use_upstream_for_tke = .FALSE.,&
    761                 wall_adjustment = .TRUE., ws_scheme_sca = .FALSE., &
     764                use_ug_for_galilei_tr = .TRUE., use_upstream_for_tke = .FALSE.
     765    LOGICAL ::  virtual_flight = .FALSE.  !< flag for virtual flight model
     766    LOGICAL ::  wall_adjustment = .TRUE., ws_scheme_sca = .FALSE., &
    762767                ws_scheme_mom = .FALSE.
    763768
Note: See TracChangeset for help on using the changeset viewer.