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/read_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_length, tunnel_width_x, tunnel_width_y, 
     34! +tunnel_height, tunnel_length, tunnel_width_x, tunnel_width_y,
    3235!  tunnel_wall_depth
    3336!
    3437! 2042 2016-11-02 13:47:31Z suehring
    3538! Bugfix, read 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
    4144! top_scalarflux added
    42 ! 
     45!
    4346! 1960 2016-07-12 16:34:24Z suehring
    4447! Separate humidity and passive scalar
     
    6669! 1699 2015-10-29 08:02:35Z maronga
    6770! Bugfix: update of binary version from 3.9b to 4.0 was missing
    68 ! 
     71!
    6972! 1691 2015-10-26 16:17:44Z maronga
    70 ! Added output of most_method, constant_flux_layer, zeta_min, zeta_max. Removed 
     73! Added output of most_method, constant_flux_layer, zeta_min, zeta_max. Removed
    7174! output of prandtl_layer and rif_min, rif_max.
    72 ! 
     75!
    7376! 1682 2015-10-07 23:56:08Z knoop
    7477! Code annotations made doxygen readable
    75 ! 
     78!
    7679! 1615 2015-07-08 18:49:19Z suehring
    7780! Enable turbulent inflow for passive_scalar and humidity
     
    7982! 1585 2015-04-30 07:05:52Z maronga
    8083! Adapted for RRTMG
    81 ! 
     84!
    8285! 1560 2015-03-06 10:48:54Z keck
    8386! +recycling_yshift
    84 ! 
     87!
    8588! 1522 2015-01-14 10:53:12Z keck
    8689! added query for checking if the advection scheme in the restart run is the
    8790! same as the advection scheme in the corresponding initial run
    88 ! 
     91!
    8992! 1502 2014-12-03 18:22:31Z kanani
    90 ! Canopy module and parameters removed (parameters are always read from 
     93! Canopy module and parameters removed (parameters are always read from
    9194! canopy_par NAMELIST for initial and restart runs)
    92 ! 
     95!
    9396! 1496 2014-12-02 17:25:50Z maronga
    9497! Renamed "radiation" -> "cloud_top_radiation"
    95 ! 
     98!
    9699! 1484 2014-10-21 10:53:05Z kanani
    97100! Changes in the course of the canopy-model modularization:
     
    118121!
    119122! 1253 2013-11-07 10:48:12Z fricke
    120 ! Bugfix: add ref_state to read_parts_of_var_list, otherwise ref_state 
     123! Bugfix: add ref_state to read_parts_of_var_list, otherwise ref_state
    121124! is zero for initializing_actions = 'cyclic_fill'
    122125!
     
    142145!
    143146! 1053 2012-11-13 17:11:03Z hoffmann
    144 ! necessary expansions according to the two new prognostic equations (nr, qr) 
     147! necessary expansions according to the two new prognostic equations (nr, qr)
    145148! of the two-moment cloud physics scheme:
    146149! +bc_*_b, +bc_*_t, +bc_*_t_val, *_init, *_surface, *_surface_initial_change,
     
    148151! +surface_waterflux_*
    149152!
    150 ! in addition, steering parameters parameters of the two-moment cloud physics 
    151 ! scheme:   
     153! in addition, steering parameters parameters of the two-moment cloud physics
     154! scheme:
    152155! +cloud_scheme, +drizzle, +mu_constant, +mu_constant_value, +ventilation_effect
    153156!
     
    191194!------------------------------------------------------------------------------!
    192195 SUBROUTINE read_var_list
    193  
     196
    194197
    195198    USE arrays_3d,                                                             &
     
    201204    USE flight_mod,                                                            &
    202205        ONLY:  flight_read_restart_data
    203    
     206
    204207    USE grid_variables,                                                        &
    205208        ONLY:  dx, dy
     
    234237               v_max, v_max_ijk, w_max, w_max_ijk
    235238
     239    USE synthetic_turbulence_generator_mod,                                    &
     240        ONLY:  stg_read_restart_data
    236241
    237242    IMPLICIT NONE
     
    628633             READ ( 13 )  s_vertical_gradient_level
    629634          CASE ( 's_vertical_gradient_level_ind' )
    630              READ ( 13 )  s_vertical_gradient_level_ind 
     635             READ ( 13 )  s_vertical_gradient_level_ind
    631636          CASE ( 'sa_init' )
    632637             READ ( 13 )  sa_init
     
    646651             READ ( 13 )  surface_pressure
    647652          CASE ( 'surface_scalarflux' )
    648              READ ( 13 )  surface_scalarflux             
     653             READ ( 13 )  surface_scalarflux
    649654          CASE ( 'surface_waterflux' )
    650              READ ( 13 )  surface_waterflux     
     655             READ ( 13 )  surface_waterflux
    651656          CASE ( 'time_coupling' )
    652657             READ ( 13 )  time_coupling
     
    770775             READ ( 13 )  vg_vertical_gradient_level_ind
    771776          CASE ( 'virtual_flight' )
    772              READ ( 13 ) virtual_flight 
     777             READ ( 13 ) virtual_flight
    773778          CASE ( 'volume_flow_area' )
    774779             READ ( 13 )  volume_flow_area
     
    805810             WRITE( message_string, * ) 'unknown variable named "',         &
    806811                                        TRIM( variable_chr ), '" found in', &
    807                                         ' data from prior run on PE ', myid 
     812                                        ' data from prior run on PE ', myid
    808813             CALL message( 'read_var_list', 'PA0302', 1, 2, 0, 6, 0 )
    809814        END SELECT
     
    813818
    814819    ENDDO
    815    
     820
    816821    IF ( virtual_flight )  CALL flight_read_restart_data
    817822
     823    IF ( synthetic_turbulence_generator )  CALL stg_read_restart_data
    818824
    819825 END SUBROUTINE read_var_list
     
    828834!> run which used a smaller total domain or/and a different domain decomposition.
    829835!------------------------------------------------------------------------------!
    830  
     836
    831837 SUBROUTINE read_parts_of_var_list
    832838
     
    938944    READ ( 13 )  statistic_regions_on_file
    939945    IF ( statistic_regions_on_file /= statistic_regions )  THEN
    940        WRITE( message_string, * ) 'statistic regions on restart data file ',& 
     946       WRITE( message_string, * ) 'statistic regions on restart data file ',&
    941947                                  'differ from the current run',            &
    942948                                  '&statistic regions on file    = "',      &
     
    993999                CALL message( 'read_parts_of_var_list', 'PA0100', &
    9941000                                                                 1, 2, 0, 6, 0 )
    995              END IF                           
    996              
     1001             END IF
     1002
    9971003          CASE ( 'nx' )
    9981004             READ ( 13 )  nx_on_file
     
    10121018                CALL message( 'read_parts_of_var_list', 'PA0101', &
    10131019                                                                 1, 2, 0, 6, 0 )
    1014              END IF             
    1015              
     1020             END IF
     1021
    10161022          CASE DEFAULT
    10171023
     
    10401046!> Skipping the global control variables from restart-file (binary format)
    10411047!------------------------------------------------------------------------------!
    1042  
     1048
    10431049 SUBROUTINE skip_var_list
    10441050
    10451051    USE control_parameters,                                                    &
    10461052        ONLY:  virtual_flight
    1047  
     1053
    10481054    USE flight_mod,                                                            &
    10491055        ONLY:  flight_skip_var_list
    1050  
     1056
    10511057    IMPLICIT NONE
    10521058
     
    10681074    ENDDO
    10691075!
    1070 !-- In case of virtual flights, skip also variables related to 
     1076!-- In case of virtual flights, skip also variables related to
    10711077!-- this module.
    10721078    IF ( virtual_flight )  CALL flight_skip_var_list
    1073    
     1079
    10741080
    10751081 END SUBROUTINE skip_var_list
Note: See TracChangeset for help on using the changeset viewer.