Changeset 3597 for palm/trunk/SOURCE/time_integration_spinup.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_spinup.f90 (modified) (5 diffs)

palm/trunk/SOURCE/time_integration_spinup.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed call to calculation of near air (10 cm) potential temperature (now in
+! surface layer fluxes)
+! 
+! 3467 2018-10-30 19:05:21Z suehring
 ! call to material_heat_model now with check if spinup runs (rvtils)
 ! 
@@ -129 +133 @@
     USE land_surface_model_mod,                                                &
         ONLY:  lsm_energy_balance, lsm_soil_model, lsm_swap_timelevel
-
     USE pegrid
 
@@ -154 +157 @@
         ONLY:  usm_material_heat_model, usm_material_model,                    &
                usm_surface_energy_balance, usm_swap_timelevel,                 &
-               usm_green_heat_model, usm_temperature_near_surface
+               usm_green_heat_model
 
 
@@ -389 +392 @@
                 CALL lsm_energy_balance( .FALSE., 3 )
                 CALL lsm_soil_model( .FALSE., 3, calc_soil_moisture_during_spinup )
-
+                
                 CALL cpu_log( log_point(54), 'land_surface', 'stop' )
              ENDIF
@@ -403 +406 @@
                    CALL usm_material_heat_model( .TRUE. )
                 ENDIF
-                IF ( urban_surface ) THEN
-                   CALL usm_temperature_near_surface
-                ENDIF
+                
                 CALL cpu_log( log_point(74), 'urban_surface', 'stop' )
              ENDIF