Changeset 4721 for palm/trunk

Timestamp:

Oct 2, 2020 10:21:52 AM (4 years ago)

Author:

suehring

Message:

modules: change default value spinup_pt_amplitude to 0.0 K; usm: remove unused variables from USE statement

Location:

palm/trunk/SOURCE

Files:

• modules.f90 (modified) (2 diffs)
• urban_surface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Change default value spinup_pt_amplitude to 0.0 K
+!
+! 4680 2020-09-16 10:20:34Z gronemeier
 ! Add option to fix date or time of the simulation
 !
@@ -988 +991 @@
     REAL(wp) ::  skip_time_do2d_yz = 9999999.9_wp              !< namelist parameter
     REAL(wp) ::  skip_time_do3d = 9999999.9_wp                 !< namelist parameter
-    REAL(wp) ::  spinup_pt_amplitude = 9999999.9_wp            !< namelist parameter
+    REAL(wp) ::  spinup_pt_amplitude = 0.0_wp                  !< namelist parameter
     REAL(wp) ::  spinup_pt_mean = 9999999.9_wp                 !< namelist parameter
     REAL(wp) ::  spinup_time = 0.0_wp                          !< namelist parameter

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Remove unused variables from USE statement
+!
+! 4717 2020-09-30 22:27:40Z pavelkrc
 ! Fixes and optimizations of OpenMP parallelization, formatting of OpenMP
 ! directives (J. Resler)
@@ -348 +351 @@
                pt_surface,                                                                         &
                restart_data_format_output,                                                         &
-               simulated_time,                                                                     &
                surface_pressure,                                                                   &
-               spinup_pt_mean,                                                                     &
-               spinup_time,                                                                        &
-               time_do3d,                                                                          &
                time_since_reference_point,                                                         &
                timestep_scheme,                                                                    &