Changeset 4565 for palm/trunk/SOURCE/modules.f90

Timestamp:

Jun 15, 2020 8:30:38 AM (4 years ago)

Author:

oliver.maas

Message:

added new surface temperature forcing method for bc_pt_b = 'dirichlet': surface temperature pt(0) can be linearly increased by pt_surface_heating_rate (in K/h)

File:

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

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! added pt_surface_heating_rate
+! 
+! 4536 2020-05-17 17:24:13Z raasch
 ! +qsurf_av, ssurf_av
 ! 
@@ -942 +945 @@
                                                                !< boundary of total domain
     REAL(wp) ::  pt_surface = 300.0_wp                         !< namelist parameter
+    REAL(wp) ::  pt_surface_heating_rate = 0.0_wp              !< namelist parameter
     REAL(wp) ::  pt_surface_initial_change = 0.0_wp            !< namelist parameter
     REAL(wp) ::  q_surface = 0.0_wp                            !< namelist parameter