Changeset 4090 for palm/trunk/SOURCE

Timestamp:

Jul 11, 2019 3:06:47 PM (5 years ago)

Author:

Giersch

Message:

Unused variables removed

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Unused variables removed
+! 
+! 4088 2019-07-11 13:57:56Z Giersch
 ! Pressure and density profile calculations revised using basic functions
 ! 
@@ -614 +617 @@
 
     USE basic_constants_and_equations_mod,                                     &
-        ONLY:  c_p, g, l_v, pi, r_d, exner_function, exner_function_invers,    &
+        ONLY:  c_p, g, l_v, pi, exner_function, exner_function_invers,         &
                ideal_gas_law_rho, ideal_gas_law_rho_pt, barometric_formula
 
@@ -711 +714 @@
     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  ngp_2dh_outer_l    !< number of horizontal non-wall bounded grid points on subdomain
     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  ngp_2dh_s_inner_l  !< number of horizontal non-topography grid points on subdomain
-
-    REAL(wp)     ::  t_surface !< air temperature at the surface
 
     REAL(wp), DIMENSION(:), ALLOCATABLE ::  init_l        !< dummy array used for averaging 3D data to obtain inital profiles 
@@ -852 +853 @@
 !-- mainly for output purposes. This density do not need to be considered 
 !-- in the model's system of equations.
-!    t_surface = pt_surface * ( surface_pressure / 1000.0_wp )**( r_d / c_p )
     IF ( TRIM( approximation ) == 'anelastic' )  THEN
        DO  k = nzb, nzt+1