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/sor.f90

    r2718 r3182  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Rename variables in mesoscale-offline nesting mode
    2323!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Corrected "Former revisions" section
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    8285
    8386    USE control_parameters,                                                    &
    84         ONLY:  bc_lr_cyc, bc_ns_cyc, force_bound_l, force_bound_n,             &
    85                force_bound_r, force_bound_s, ibc_p_b, ibc_p_t, inflow_l,       &
    86                inflow_n, inflow_r, inflow_s, nest_bound_l, nest_bound_n,       &
    87                nest_bound_r, nest_bound_s, n_sor, omega_sor, outflow_l,        &
    88                outflow_n, outflow_r, outflow_s
     87        ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r,                 &
     88               bc_dirichlet_s, bc_lr_cyc, bc_ns_cyc, bc_radiation_l,           &
     89               bc_radiation_n, bc_radiation_r, bc_radiation_s, ibc_p_b,        &
     90               ibc_p_t, n_sor, omega_sor
    8991
    9092    IMPLICIT NONE
     
    175177!--    Horizontal (Neumann) boundary conditions in case of non-cyclic boundaries
    176178       IF ( .NOT. bc_lr_cyc )  THEN
    177           IF ( inflow_l      .OR.  outflow_l  .OR.                                 &
    178                nest_bound_l  .OR.  force_bound_l )  p(:,:,nxl-1) = p(:,:,nxl)
    179           IF ( inflow_r      .OR.  outflow_r  .OR.                                 &
    180                nest_bound_r  .OR.  force_bound_r )  p(:,:,nxr+1) = p(:,:,nxr)
     179          IF ( bc_dirichlet_l  .OR.  bc_radiation_l )  p(:,:,nxl-1) = p(:,:,nxl)
     180          IF ( bc_dirichlet_r  .OR.  bc_radiation_r )  p(:,:,nxr+1) = p(:,:,nxr)
    181181       ENDIF
    182182       IF ( .NOT. bc_ns_cyc )  THEN
    183           IF ( inflow_n      .OR.  outflow_n  .OR.                                 &
    184                nest_bound_n  .OR.  force_bound_n )  p(:,nyn+1,:) = p(:,nyn,:)
    185           IF ( inflow_s      .OR.  outflow_s  .OR.                                 &
    186                nest_bound_s  .OR.  force_bound_s )  p(:,nys-1,:) = p(:,nys,:)
     183          IF ( bc_dirichlet_n  .OR.  bc_radiation_n )  p(:,nyn+1,:) = p(:,nyn,:)
     184          IF ( bc_dirichlet_s  .OR.  bc_radiation_s )  p(:,nys-1,:) = p(:,nys,:)
    187185       ENDIF
    188186
     
    241239!--    Horizontal (Neumann) boundary conditions in case of non-cyclic boundaries
    242240       IF ( .NOT. bc_lr_cyc )  THEN
    243           IF ( inflow_l      .OR.  outflow_l  .OR.                             &
    244                nest_bound_l  .OR.  force_bound_l )  p(:,:,nxl-1) = p(:,:,nxl)
    245           IF ( inflow_r      .OR.  outflow_r  .OR.                             &
    246                nest_bound_r  .OR.  force_bound_r )  p(:,:,nxr+1) = p(:,:,nxr)
     241          IF ( bc_dirichlet_l  .OR.  bc_radiation_l )  p(:,:,nxl-1) = p(:,:,nxl)
     242          IF ( bc_dirichlet_r  .OR.  bc_radiation_r )  p(:,:,nxr+1) = p(:,:,nxr)
    247243       ENDIF
    248244       IF ( .NOT. bc_ns_cyc )  THEN
    249           IF ( inflow_n      .OR.  outflow_n  .OR.                             &
    250                nest_bound_n  .OR.  force_bound_n )  p(:,nyn+1,:) = p(:,nyn,:)
    251           IF ( inflow_s      .OR.  outflow_s  .OR.                             &
    252                nest_bound_s  .OR.  force_bound_s )  p(:,nys-1,:) = p(:,nys,:)
     245          IF ( bc_dirichlet_n  .OR.  bc_radiation_n )  p(:,nyn+1,:) = p(:,nyn,:)
     246          IF ( bc_dirichlet_s  .OR.  bc_radiation_s )  p(:,nys-1,:) = p(:,nys,:)
    253247       ENDIF
    254248
Note: See TracChangeset for help on using the changeset viewer.