Changeset 2329 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Aug 3, 2017 2:24:56 PM (7 years ago)

Author:

knoop

Message:

Bugfix for topography usage with anelastic approximation and boussinesq approximation with air density != 1

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: index corrected for rho_air and rho_air_zw output
+! 
+! 2320 2017-07-21 12:47:43Z suehring
 ! Modularize large-scale forcing and nudging
 !
@@ -2748 +2751 @@
 
           CASE ( 'rho_air' )
-             dopr_index(i)  = 121
+             dopr_index(i)  = 119
              dopr_unit(i)   = 'kg/m3'
-             hom(:,2,121,:) = SPREAD( zu, 2, statistic_regions+1 )
+             hom(:,2,119,:) = SPREAD( zu, 2, statistic_regions+1 )
 
           CASE ( 'rho_air_zw' )
-             dopr_index(i)  = 122
+             dopr_index(i)  = 120
              dopr_unit(i)   = 'kg/m3'
-             hom(:,2,122,:) = SPREAD( zw, 2, statistic_regions+1 )
+             hom(:,2,120,:) = SPREAD( zw, 2, statistic_regions+1 )
 
           CASE ( 'nc' )