Changeset 2259 for palm/trunk/SOURCE/write_var_list.f90

Timestamp:

Jun 8, 2017 9:09:11 AM (7 years ago)

Author:

gronemeier

Message:

Implemented synthetic turbulence generator

File:

• palm/trunk/SOURCE/write_var_list.f90 (modified) (15 diffs)

palm/trunk/SOURCE/write_var_list.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implemented synthetic turbulence generator
+!
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
 ! Replace wall_qflux, wall_sflux by wall_humidityflux and wall_scalarflux; add
 ! wall_salinityflux
-! +tunnel_height, tunnel_lenth, tunnel_width_x, tunnel_width_y, 
+! +tunnel_height, tunnel_lenth, tunnel_width_x, tunnel_width_y,
 ! tunnel_wall_depth
-! 
+!
 ! 2042 2016-11-02 13:47:31Z suehring
 ! Bugfix, write restart data for wall_heatflux, wall_qflux and wall_sflux
-! 
+!
 ! 2000 2016-08-20 18:09:15Z knoop
 ! Forced header and separation lines into 80 columns
-! 
+!
 ! 1992 2016-08-12 15:14:59Z suehring
-! top scalarflux added 
+! top scalarflux added
 !
 ! 1957 2016-07-07 10:43:48Z suehring
 ! flight module added
-! 
+!
 ! 1849 2016-04-08 11:33:18Z hoffmann
 ! Adapted for modularization of microphysics
@@ -50 +53 @@
 ! spectra_mod added
 !
-! 1831 2016-04-07 13:15:51Z hoffmann 
-! turbulence renamed collision_turbulence, drizzle renamed 
+! 1831 2016-04-07 13:15:51Z hoffmann
+! turbulence renamed collision_turbulence, drizzle renamed
 ! cloud_water_sedimentation
 !
@@ -59 +62 @@
 ! 1705 2015-11-02 14:28:56Z maronga
 ! Bugfix: two lines required swapping
-! 
+!
 ! 1691 2015-10-26 16:17:44Z maronga
-! Added output of most_method, constant_flux_layer, zeta_min, zeta_max. Removed 
+! Added output of most_method, constant_flux_layer, zeta_min, zeta_max. Removed
 ! output of prandtl_layer and rif_min, rif_max.
-! 
+!
 ! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
+! Code annotations made doxygen readable
+!
 ! 1585 2015-04-30 07:05:52Z maronga
 ! Adapted for RRTMG
-! 
+!
 ! 1551 2015-03-03 14:18:16Z maronga
 ! Typo removed
-! 
+!
 ! 1502 2014-12-03 18:22:31Z kanani
-! Canopy module and parameters removed (parameters are always read from 
+! Canopy module and parameters removed (parameters are always read from
 ! canopy_par NAMELIST for initial and restart runs),
-! Bugfix: added blanks in "cloud_top_radiation"-string to a total of 30 
+! Bugfix: added blanks in "cloud_top_radiation"-string to a total of 30
 ! characters
-! 
+!
 ! 1496 2014-12-02 17:25:50Z maronga
 ! Renamed "radiation" -> "cloud_top_radiation"
-! 
+!
 ! 1484 2014-10-21 10:53:05Z kanani
 ! Changes in the course of the canopy-model modularization:
@@ -90 +93 @@
 !
 ! 1324 2014-03-21 09:13:16Z suehring
-! Bugfix: ONLY statement for module netcdf_control removed 
+! Bugfix: ONLY statement for module netcdf_control removed
 !
 ! 1320 2014-03-20 08:40:49Z raasch
 ! revision history before 2012 removed,
 ! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements 
+! all variable declaration statements
 !
 ! 1308 2014-03-13 14:58:42Z fricke
@@ -116 +119 @@
 !
 ! 1053 2012-11-13 17:11:03Z hoffmann
-! necessary expansions according to the two new prognostic equations (nr, qr) 
+! necessary expansions according to the two new prognostic equations (nr, qr)
 ! of the two-moment cloud physics scheme:
 ! +bc_*_b, bc_*_t, bc_*_t_val, *_init, *_surface, *_surface_initial_change,
@@ -122 +125 @@
 ! +surface_waterflux_*
 !
-! in addition, steering parameters parameters of the two-moment cloud physics 
-! scheme:   
+! in addition, steering parameters parameters of the two-moment cloud physics
+! scheme:
 ! +cloud_scheme, +drizzle, +mu_constant, +mu_constant_value, +ventilation_effect
 !
@@ -166 +169 @@
 !------------------------------------------------------------------------------!
  SUBROUTINE write_var_list
- 
+
 
     USE arrays_3d,                                                             &
@@ -173 +176 @@
 
     USE control_parameters
-    
+
     USE flight_mod,                                                            &
         ONLY:  flight_write_restart_data
-    
+
     USE grid_variables,                                                        &
         ONLY:  dx, dy
-    
+
     USE indices,                                                               &
         ONLY:  nz, nx, ny
@@ -190 +193 @@
     USE model_1d,                                                              &
         ONLY:  damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d
-    
+
     USE netcdf_interface,                                                      &
         ONLY:  netcdf_precision, output_for_t0
-    
+
     USE particle_attributes,                                                   &
         ONLY:  curvature_solution_effects, time_sort_particles
-    
+
     USE pegrid
 
@@ -204 +207 @@
     USE spectra_mod,                                                           &
         ONLY:  average_count_sp
+
+    USE synthetic_turbulence_generator_mod,                                    &
+        ONLY:  stg_write_restart_data
 
     USE statistics,                                                            &
@@ -209 +215 @@
                v_max_ijk, w_max, w_max_ijk
 
-    
+
     IMPLICIT NONE
 
-    CHARACTER (LEN=10) ::  binary_version   !< 
+    CHARACTER (LEN=10) ::  binary_version   !<
 
 
@@ -531 +537 @@
     WRITE ( 14 )  s_vertical_gradient_level
     WRITE ( 14 )  's_vertical_gradient_level_ind '
-    WRITE ( 14 )  s_vertical_gradient_level_ind 
+    WRITE ( 14 )  s_vertical_gradient_level_ind
     WRITE ( 14 )  'sa_init                       '
     WRITE ( 14 )  sa_init
@@ -549 +555 @@
     WRITE ( 14 )  surface_pressure
     WRITE ( 14 )  'surface_scalarflux            '
-    WRITE ( 14 )  surface_scalarflux    
+    WRITE ( 14 )  surface_scalarflux
     WRITE ( 14 )  'surface_waterflux             '
-    WRITE ( 14 )  surface_waterflux    
+    WRITE ( 14 )  surface_waterflux
     WRITE ( 14 )  's_surface                     '
     WRITE ( 14 )  s_surface
@@ -711 +717 @@
     WRITE ( 14 )  zeta_min
     WRITE ( 14 )  'z0h_factor                    '
-    WRITE ( 14 )  z0h_factor  
+    WRITE ( 14 )  z0h_factor
 
 !
@@ -718 +724 @@
 !
 !-- If required, write restart data for virtual measurements.
-    IF ( virtual_flight )  CALL flight_write_restart_data  
-    
-    
+    IF ( virtual_flight )  CALL flight_write_restart_data
+
+!
+!-- If required, write restart data for virtual measurements.
+    IF ( synthetic_turbulence_generator )  CALL stg_write_restart_data
+
+
  END SUBROUTINE write_var_list