Ignore:
Timestamp:
Jun 8, 2017 9:09:11 AM (4 years ago)
Author:
gronemeier
Message:

Implemented synthetic turbulence generator

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/write_var_list.f90

    r2233 r2259  
    2525! -----------------
    2626! $Id$
     27! Implemented synthetic turbulence generator
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
    2932! Replace wall_qflux, wall_sflux by wall_humidityflux and wall_scalarflux; add
    3033! wall_salinityflux
    31 ! +tunnel_height, tunnel_lenth, tunnel_width_x, tunnel_width_y, 
     34! +tunnel_height, tunnel_lenth, tunnel_width_x, tunnel_width_y,
    3235! tunnel_wall_depth
    33 ! 
     36!
    3437! 2042 2016-11-02 13:47:31Z suehring
    3538! Bugfix, write restart data for wall_heatflux, wall_qflux and wall_sflux
    36 ! 
     39!
    3740! 2000 2016-08-20 18:09:15Z knoop
    3841! Forced header and separation lines into 80 columns
    39 ! 
     42!
    4043! 1992 2016-08-12 15:14:59Z suehring
    41 ! top scalarflux added 
     44! top scalarflux added
    4245!
    4346! 1957 2016-07-07 10:43:48Z suehring
    4447! flight module added
    45 ! 
     48!
    4649! 1849 2016-04-08 11:33:18Z hoffmann
    4750! Adapted for modularization of microphysics
     
    5053! spectra_mod added
    5154!
    52 ! 1831 2016-04-07 13:15:51Z hoffmann 
    53 ! turbulence renamed collision_turbulence, drizzle renamed 
     55! 1831 2016-04-07 13:15:51Z hoffmann
     56! turbulence renamed collision_turbulence, drizzle renamed
    5457! cloud_water_sedimentation
    5558!
     
    5962! 1705 2015-11-02 14:28:56Z maronga
    6063! Bugfix: two lines required swapping
    61 ! 
     64!
    6265! 1691 2015-10-26 16:17:44Z maronga
    63 ! Added output of most_method, constant_flux_layer, zeta_min, zeta_max. Removed 
     66! Added output of most_method, constant_flux_layer, zeta_min, zeta_max. Removed
    6467! output of prandtl_layer and rif_min, rif_max.
    65 ! 
     68!
    6669! 1682 2015-10-07 23:56:08Z knoop
    67 ! Code annotations made doxygen readable 
    68 ! 
     70! Code annotations made doxygen readable
     71!
    6972! 1585 2015-04-30 07:05:52Z maronga
    7073! Adapted for RRTMG
    71 ! 
     74!
    7275! 1551 2015-03-03 14:18:16Z maronga
    7376! Typo removed
    74 ! 
     77!
    7578! 1502 2014-12-03 18:22:31Z kanani
    76 ! Canopy module and parameters removed (parameters are always read from 
     79! Canopy module and parameters removed (parameters are always read from
    7780! canopy_par NAMELIST for initial and restart runs),
    78 ! Bugfix: added blanks in "cloud_top_radiation"-string to a total of 30 
     81! Bugfix: added blanks in "cloud_top_radiation"-string to a total of 30
    7982! characters
    80 ! 
     83!
    8184! 1496 2014-12-02 17:25:50Z maronga
    8285! Renamed "radiation" -> "cloud_top_radiation"
    83 ! 
     86!
    8487! 1484 2014-10-21 10:53:05Z kanani
    8588! Changes in the course of the canopy-model modularization:
     
    9093!
    9194! 1324 2014-03-21 09:13:16Z suehring
    92 ! Bugfix: ONLY statement for module netcdf_control removed 
     95! Bugfix: ONLY statement for module netcdf_control removed
    9396!
    9497! 1320 2014-03-20 08:40:49Z raasch
    9598! revision history before 2012 removed,
    9699! comment fields (!:) to be used for variable explanations added to
    97 ! all variable declaration statements 
     100! all variable declaration statements
    98101!
    99102! 1308 2014-03-13 14:58:42Z fricke
     
    116119!
    117120! 1053 2012-11-13 17:11:03Z hoffmann
    118 ! necessary expansions according to the two new prognostic equations (nr, qr) 
     121! necessary expansions according to the two new prognostic equations (nr, qr)
    119122! of the two-moment cloud physics scheme:
    120123! +bc_*_b, bc_*_t, bc_*_t_val, *_init, *_surface, *_surface_initial_change,
     
    122125! +surface_waterflux_*
    123126!
    124 ! in addition, steering parameters parameters of the two-moment cloud physics 
    125 ! scheme:   
     127! in addition, steering parameters parameters of the two-moment cloud physics
     128! scheme:
    126129! +cloud_scheme, +drizzle, +mu_constant, +mu_constant_value, +ventilation_effect
    127130!
     
    166169!------------------------------------------------------------------------------!
    167170 SUBROUTINE write_var_list
    168  
     171
    169172
    170173    USE arrays_3d,                                                             &
     
    173176
    174177    USE control_parameters
    175    
     178
    176179    USE flight_mod,                                                            &
    177180        ONLY:  flight_write_restart_data
    178    
     181
    179182    USE grid_variables,                                                        &
    180183        ONLY:  dx, dy
    181    
     184
    182185    USE indices,                                                               &
    183186        ONLY:  nz, nx, ny
     
    190193    USE model_1d,                                                              &
    191194        ONLY:  damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d
    192    
     195
    193196    USE netcdf_interface,                                                      &
    194197        ONLY:  netcdf_precision, output_for_t0
    195    
     198
    196199    USE particle_attributes,                                                   &
    197200        ONLY:  curvature_solution_effects, time_sort_particles
    198    
     201
    199202    USE pegrid
    200203
     
    204207    USE spectra_mod,                                                           &
    205208        ONLY:  average_count_sp
     209
     210    USE synthetic_turbulence_generator_mod,                                    &
     211        ONLY:  stg_write_restart_data
    206212
    207213    USE statistics,                                                            &
     
    209215               v_max_ijk, w_max, w_max_ijk
    210216
    211    
     217
    212218    IMPLICIT NONE
    213219
    214     CHARACTER (LEN=10) ::  binary_version   !< 
     220    CHARACTER (LEN=10) ::  binary_version   !<
    215221
    216222
     
    531537    WRITE ( 14 )  s_vertical_gradient_level
    532538    WRITE ( 14 )  's_vertical_gradient_level_ind '
    533     WRITE ( 14 )  s_vertical_gradient_level_ind 
     539    WRITE ( 14 )  s_vertical_gradient_level_ind
    534540    WRITE ( 14 )  'sa_init                       '
    535541    WRITE ( 14 )  sa_init
     
    549555    WRITE ( 14 )  surface_pressure
    550556    WRITE ( 14 )  'surface_scalarflux            '
    551     WRITE ( 14 )  surface_scalarflux   
     557    WRITE ( 14 )  surface_scalarflux
    552558    WRITE ( 14 )  'surface_waterflux             '
    553     WRITE ( 14 )  surface_waterflux   
     559    WRITE ( 14 )  surface_waterflux
    554560    WRITE ( 14 )  's_surface                     '
    555561    WRITE ( 14 )  s_surface
     
    711717    WRITE ( 14 )  zeta_min
    712718    WRITE ( 14 )  'z0h_factor                    '
    713     WRITE ( 14 )  z0h_factor 
     719    WRITE ( 14 )  z0h_factor
    714720
    715721!
     
    718724!
    719725!-- If required, write restart data for virtual measurements.
    720     IF ( virtual_flight )  CALL flight_write_restart_data 
    721    
    722    
     726    IF ( virtual_flight )  CALL flight_write_restart_data
     727
     728!
     729!-- If required, write restart data for virtual measurements.
     730    IF ( synthetic_turbulence_generator )  CALL stg_write_restart_data
     731
     732
    723733 END SUBROUTINE write_var_list
Note: See TracChangeset for help on using the changeset viewer.