Changeset 1892

Timestamp:

Apr 26, 2016 1:49:47 PM (9 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:

• palm/trunk/SOURCE/pmc_interface_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! bugfix: pt is not set as a data array in case that the temperature equation is
+! switched off with neutral = .TRUE.
 ! 
 ! Former revisions:
@@ -107 +108 @@
         ONLY:  coupling_char, dt_3d, dz, humidity, message_string,             &
                nest_bound_l, nest_bound_r, nest_bound_s, nest_bound_n,         &
-               nest_domain, passive_scalar, simulated_time, topography,        &
-               volume_flow
+               nest_domain, neutral, passive_scalar, simulated_time,           &
+               topography, volume_flow
 
     USE cpulog,                                                                &
@@ -808 +809 @@
        CALL pmc_clientinit
 !
-!--    Here and only here the arrays are defined, which actualy will be
+!--    Here AND ONLY HERE the arrays are defined, which actualy will be
 !--    exchanged between client and server.
-!--    Please check, if the arrays are in the list of possible exchange arrays
+!--    If a variable is removed, it only has to be removed from here.
+!--    Please check, if the arrays are in the list of POSSIBLE exchange arrays
 !--    in subroutines:
 !--    pmci_set_array_pointer (for server arrays)
@@ -818 +820 @@
        CALL pmc_set_dataarray_name( 'coarse', 'w'  ,'fine', 'w',  ierr )
        CALL pmc_set_dataarray_name( 'coarse', 'e'  ,'fine', 'e',  ierr )
-       CALL pmc_set_dataarray_name( 'coarse', 'pt' ,'fine', 'pt', ierr )
+       IF ( .NOT. neutral )  THEN
+          CALL pmc_set_dataarray_name( 'coarse', 'pt' ,'fine', 'pt', ierr )
+       ENDIF
        IF ( humidity  .OR.  passive_scalar )  THEN
           CALL pmc_set_dataarray_name( 'coarse', 'q'  ,'fine', 'q',  ierr )
        ENDIF
 
-!
-!--    Update this list appropritely and also in create_client_arrays and in
-!--    pmci_set_array_pointer.
-!--    If a variable is removed, it only has to be removed from here.
        CALL pmc_set_dataarray_name( lastentry = .TRUE. )