Changeset 3347 for palm/trunk/SOURCE/parin.f90

Timestamp:

Oct 15, 2018 2:21:08 PM (6 years ago)

Author:

suehring

Message:

Offline nesting revised and separated from large_scale_forcing_mod; Time-dependent synthetic turbulence generator; bugfixes in USM/LSM radiation model and init_pegrid

File:

• palm/trunk/SOURCE/parin.f90 (modified) (6 diffs)

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! - offline nesting separated from large-scale forcing module
+! - top boundary condition for pressure in offline nesting changed
+! 
+! 3343 2018-10-15 10:38:52Z suehring
 ! Introduced reading of date_init to inipar.(Russo)
 ! Add extra profiles for chemistry (basit)
@@ -477 +481 @@
         ONLY:  mas_parin
 
+    USE nesting_offl_mod,                                                      &
+        ONLY:  nesting_offl_parin
+        
     USE netcdf_interface,                                                      &
         ONLY:  netcdf_data_format, netcdf_deflate, netcdf_precision
@@ -570 +577 @@
              loop_optimization, lsf_exception, masking_method, mg_cycles,      &
              mg_switch_to_pe0_level, mixing_length_1d, momentum_advec,         &
-             most_method, nesting_offline,                  &
+             most_method,                                                      &
              netcdf_precision, neutral, ngsrb,                                 &
              nsor, nsor_ini, nudging, nx, ny, nz, ocean_mode, omega,           &
@@ -643 +650 @@
              loop_optimization, lsf_exception, masking_method, mg_cycles,      &
              mg_switch_to_pe0_level, mixing_length_1d, momentum_advec,         &
-             most_method, nesting_offline,                                     &
+             most_method,                                                      &
              netcdf_precision, neutral, ngsrb,                                 &
              nsor, nsor_ini, nudging, nx, ny, nz, ocean_mode, omega,           &
@@ -878 +885 @@
           CALL gust_parin
           CALL mas_parin
+          CALL nesting_offl_parin
           CALL ocean_parin
           CALL pcm_parin
@@ -979 +987 @@
            !  bc_s_t   = 'nesting_offline'  ! scalar boundary condition is not clear
            !  bc_cs_t  = 'nesting_offline'  ! same for chemical species
-             bc_p_t   = 'neumann'
+!
+!--          For the pressure set Dirichlet conditions, in contrast to the 
+!--          self nesting. This gives less oscilations within the 
+!--          free atmosphere since the pressure solver has more degrees of 
+!--          freedom. In constrast to the self nesting, this might be 
+!--          justified since the top boundary is far away from the domain
+!--          of interest. 
+             bc_p_t   = 'dirichlet' !'neumann'
           ENDIF