Changeset 4565 for palm/trunk/SOURCE/parin.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/parin.f90 (modified) (3 diffs)

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! added pt_surface_heating_rate
+! 
+! 4564 2020-06-12 14:03:36Z raasch
 ! Vertical nesting method of Huq et al. (2019) removed
 ! 
@@ -195 +198 @@
              nsor, nsor_ini, nudging, nx, ny, nz, ocean_mode, omega,           &
              omega_sor, outflow_source_plane, passive_scalar,                  &
-             prandtl_number, psolver, pt_damping_factor,        &
-             pt_damping_width, pt_reference, pt_surface,                       &
+             prandtl_number, psolver, pt_damping_factor,  pt_damping_width,    &
+             pt_reference, pt_surface, pt_surface_heating_rate,                &
              pt_surface_initial_change, pt_vertical_gradient,                  &
              pt_vertical_gradient_level, q_surface, q_surface_initial_change,  &
@@ -267 +270 @@
              nsor, nsor_ini, nudging, nx, ny, nz, ocean_mode, omega,           &
              omega_sor, outflow_source_plane, passive_scalar,                  &
-             prandtl_number, psolver, pt_damping_factor,                       &
-             pt_damping_width, pt_reference, pt_surface,                       &
+             prandtl_number, psolver, pt_damping_factor, pt_damping_width,     &
+             pt_surface_heating_rate, pt_reference, pt_surface,                &
              pt_surface_initial_change, pt_vertical_gradient,                  &
              pt_vertical_gradient_level, q_surface, q_surface_initial_change,  &