Ignore:
Timestamp:
Jul 27, 2018 1:36:03 PM (3 years ago)
Author:
suehring
Message:

New Inifor features: grid stretching, improved command-interface, support start dates in different formats in both YYYYMMDD and YYYYMMDDHH, Ability to manually control input file prefixes (--radiation-prefix, --soil-preifx, --flow-prefix, --soilmoisture-prefix) for compatiblity with DWD forcast naming scheme; GNU-style short and long option; Prepared output of large-scale forcing profiles (no computation yet); Added preprocessor flag netcdf4 to switch output format between netCDF 3 and 4; Updated netCDF variable names and attributes to comply with PIDS v1.9; Inifor bugfixes: Improved compatibility with older Intel Intel compilers by avoiding implicit array allocation; Added origin_lon/_lat values and correct reference time in dynamic driver global attributes; corresponding PALM changes: adjustments to revised Inifor; variables names in dynamic driver adjusted; enable geostrophic forcing also in offline nested mode; variable names in LES-LES and COSMO offline nesting changed; lateral boundary flags for nesting, in- and outflow conditions renamed

File:
1 edited

Legend:

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

    r3145 r3182  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Rename variables and remove unused variable from USE statement
    2323!
    2424! Former revisions:
     
    149149
    150150    USE control_parameters,                                                    &
    151         ONLY:  constant_diffusion, dt_3d, e_init, humidity, inflow_l,          &
     151        ONLY:  constant_diffusion, dt_3d, e_init, humidity,                    &
    152152               initializing_actions, intermediate_timestep_count,              &
    153153               intermediate_timestep_count_max, kappa, km_constant,            &
     
    212212
    213213    REAL(wp), DIMENSION(:), ALLOCATABLE ::  l_black    !< mixing length according to Blackadar
     214
    214215    REAL(wp), DIMENSION(:), ALLOCATABLE ::  l_grid     !< geometric mean of grid sizes dx, dy, dz
    215216
     
    378379
    379380    USE control_parameters,                                                    &
    380         ONLY:  message_string, nest_domain, neutral, turbulent_inflow,         &
    381                turbulent_outflow
     381        ONLY:  message_string, neutral, turbulent_inflow, turbulent_outflow
    382382
    383383    IMPLICIT NONE
     
    10491049
    10501050    USE control_parameters,                                                    &
    1051         ONLY:  complex_terrain, dissipation_1d, topography
     1051        ONLY:  bc_dirichlet_l, complex_terrain, dissipation_1d, topography
    10521052
    10531053    USE model_1d_mod,                                                          &
     
    12521252!--       Use these mean profiles at the inflow (provided that Dirichlet
    12531253!--       conditions are used)
    1254           IF ( inflow_l )  THEN
     1254          IF ( bc_dirichlet_l )  THEN
    12551255             DO  j = nysg, nyng
    12561256                DO  k = nzb, nzt+1
     
    46134613
    46144614    USE control_parameters,                                                    &
    4615         ONLY:  e_min, outflow_l, outflow_n, outflow_r, outflow_s
     4615        ONLY:  bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s, &
     4616               e_min
    46164617
    46174618    USE surface_layer_fluxes_mod,                                              &
     
    47724773!-- Set Neumann boundary conditions at the outflow boundaries in case of
    47734774!-- non-cyclic lateral boundaries
    4774     IF ( outflow_l )  THEN
     4775    IF ( bc_radiation_l )  THEN
    47754776       km(:,:,nxl-1) = km(:,:,nxl)
    47764777       kh(:,:,nxl-1) = kh(:,:,nxl)
    47774778    ENDIF
    4778     IF ( outflow_r )  THEN
     4779    IF ( bc_radiation_r )  THEN
    47794780       km(:,:,nxr+1) = km(:,:,nxr)
    47804781       kh(:,:,nxr+1) = kh(:,:,nxr)
    47814782    ENDIF
    4782     IF ( outflow_s )  THEN
     4783    IF ( bc_radiation_s )  THEN
    47834784       km(:,nys-1,:) = km(:,nys,:)
    47844785       kh(:,nys-1,:) = kh(:,nys,:)
    47854786    ENDIF
    4786     IF ( outflow_n )  THEN
     4787    IF ( bc_radiation_n )  THEN
    47874788       km(:,nyn+1,:) = km(:,nyn,:)
    47884789       kh(:,nyn+1,:) = kh(:,nyn,:)
Note: See TracChangeset for help on using the changeset viewer.