Changeset 2980 for palm/trunk


Ignore:
Timestamp:
Apr 17, 2018 3:19:27 PM (4 years ago)
Author:
suehring
Message:

Improvement for spinup checks concering consistency in nesting mode

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r2974 r2980  
    2525! -----------------
    2626! $Id$
     27! Further improvement for spinup checks.
     28!
     29! 2974 2018-04-16 12:59:52Z gronemeier
    2730! Bugfix: check if dt_data_output_av is zero in case of parallel NetCDF output
    2831!
     
    719722    INTEGER(iwp) ::  lsp                             !< running index for chem spcs.
    720723
    721     LOGICAL     ::  check_nest                       !< flag used to check initialization in case of nesting
    722724    LOGICAL     ::  found                            !<
    723725
     
    10441046!-- Check turbulence closure setup
    10451047    CALL tcm_check_parameters
    1046 
    10471048!
    10481049!-- Check approximation
     
    13991400!-- In case of spinup and nested run, spinup end time must be identical
    14001401!-- in order to have synchronously running simulations.
    1401     IF ( nested_run  .AND.  spinup )  THEN
     1402    IF ( nested_run )  THEN
    14021403#if defined( __parallel )
    14031404       CALL MPI_ALLREDUCE( spinup_time, spinup_time_max, 1, MPI_REAL,          &
     
    14051406       CALL MPI_ALLREDUCE( dt_spinup,   dt_spinup_max,   1, MPI_REAL,          &
    14061407                           MPI_MAX, MPI_COMM_WORLD, ierr )
    1407 
    14081408       IF ( spinup_time /= spinup_time_max  .OR.  dt_spinup /= dt_spinup_max ) &
    14091409       THEN
  • palm/trunk/SOURCE/parin.f90

    r2975 r2980  
    2525! -----------------
    2626! $Id$
     27! Revise message call
     28!
     29! 2975 2018-04-16 15:22:20Z suehring
    2730! - Informative message when initializing_actions has been changed
    2831!   to set_constant_profile in child domain
     
    928931!--       if user decides to do everything by its own.
    929932          IF ( nest_domain  .AND.  .NOT. (                                     &
    930                TRIM( initializing_actions ) == 'read_restart_data'  .OR.       &
     933               TRIM( initializing_actions ) == 'read_restart_data'      .OR.   &
     934               TRIM( initializing_actions ) == 'set_constant_profiles'  .OR.   &
    931935               TRIM( initializing_actions ) == 'by_user' ) )  THEN
    932936             message_string = 'initializing_actions = ' //                     &
Note: See TracChangeset for help on using the changeset viewer.