Changeset 1892 for palm/trunk


Ignore:
Timestamp:
Apr 26, 2016 1:49:47 PM (8 years ago)
Author:
raasch
Message:

bugfix: pt is not set as a data array in case that the temperature equation is switched off with neutral = .TRUE.

File:
1 edited

Legend:

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

    r1883 r1892  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! bugfix: pt is not set as a data array in case that the temperature equation is
     23! switched off with neutral = .TRUE.
    2324!
    2425! Former revisions:
     
    107108        ONLY:  coupling_char, dt_3d, dz, humidity, message_string,             &
    108109               nest_bound_l, nest_bound_r, nest_bound_s, nest_bound_n,         &
    109                nest_domain, passive_scalar, simulated_time, topography,        &
    110                volume_flow
     110               nest_domain, neutral, passive_scalar, simulated_time,           &
     111               topography, volume_flow
    111112
    112113    USE cpulog,                                                                &
     
    808809       CALL pmc_clientinit
    809810!
    810 !--    Here and only here the arrays are defined, which actualy will be
     811!--    Here AND ONLY HERE the arrays are defined, which actualy will be
    811812!--    exchanged between client and server.
    812 !--    Please check, if the arrays are in the list of possible exchange arrays
     813!--    If a variable is removed, it only has to be removed from here.
     814!--    Please check, if the arrays are in the list of POSSIBLE exchange arrays
    813815!--    in subroutines:
    814816!--    pmci_set_array_pointer (for server arrays)
     
    818820       CALL pmc_set_dataarray_name( 'coarse', 'w'  ,'fine', 'w',  ierr )
    819821       CALL pmc_set_dataarray_name( 'coarse', 'e'  ,'fine', 'e',  ierr )
    820        CALL pmc_set_dataarray_name( 'coarse', 'pt' ,'fine', 'pt', ierr )
     822       IF ( .NOT. neutral )  THEN
     823          CALL pmc_set_dataarray_name( 'coarse', 'pt' ,'fine', 'pt', ierr )
     824       ENDIF
    821825       IF ( humidity  .OR.  passive_scalar )  THEN
    822826          CALL pmc_set_dataarray_name( 'coarse', 'q'  ,'fine', 'q',  ierr )
    823827       ENDIF
    824828
    825 !
    826 !--    Update this list appropritely and also in create_client_arrays and in
    827 !--    pmci_set_array_pointer.
    828 !--    If a variable is removed, it only has to be removed from here.
    829829       CALL pmc_set_dataarray_name( lastentry = .TRUE. )
    830830
Note: See TracChangeset for help on using the changeset viewer.