Changeset 3597 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Dec 4, 2018 8:40:18 AM (5 years ago)

Author:

maronga

Message:

revised calculation of near surface air potential temperature

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (5 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed call to calculation of near air (10 cm) potential temperature (now in
+! surface layer fluxes)
+! 
+! 3589 2018-11-30 15:09:51Z suehring
 ! Move the control parameter "salsa" from salsa_mod to control_parameters 
 ! (M. Kurppa)
@@ -578 +582 @@
         ONLY:  usm_boundary_condition, usm_material_heat_model,                &
                usm_material_model,                                             &
-               usm_surface_energy_balance, usm_green_heat_model,               &
-               usm_temperature_near_surface
+               usm_surface_energy_balance, usm_green_heat_model
 
     USE synthetic_turbulence_generator_mod,                                    &
@@ -1154 +1157 @@
                 CALL lsm_energy_balance( .FALSE., 3 )
                 CALL lsm_soil_model( .FALSE., 3, .TRUE. )
+                
 !
 !--             At the end, set boundary conditons for potential temperature
@@ -1160 +1164 @@
                 CALL lsm_boundary_condition
 
+                
                 CALL cpu_log( log_point(54), 'land_surface', 'stop' )
              ENDIF
@@ -1174 +1179 @@
                 ENDIF
 
-                CALL usm_temperature_near_surface
 !
 !--             At the end, set boundary conditons for potential temperature