Changeset 3691 for palm/trunk/SOURCE


Ignore:
Timestamp:
Jan 23, 2019 9:57:04 AM (6 years ago)
Author:
suehring
Message:

Add output of surface-parallel flow speed

File:
1 edited

Legend:

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

    r3648 r3691  
    2525! -----------------
    2626! $Id$
     27! Add output of surface-parallel flow speed
     28!
     29! 3648 2019-01-02 16:35:46Z suehring
    2730! Rename module and subroutines
    2831!
     
    22242227                                                       
    22252228               ENDIF
     2229               
     2230            CASE ( 'uvw1' )
     2231!
     2232!--            Output of instantaneous data
     2233               IF ( av == 0 )  THEN
     2234                  CALL surface_data_output_collect( surf_def_h(0)%uvw_abs,     &
     2235                                               surf_def_h(1)%uvw_abs,          &
     2236                                               surf_lsm_h%uvw_abs,             &
     2237                                               surf_usm_h%uvw_abs,             &
     2238                                               surf_def_v(0)%uvw_abs,          &
     2239                                               surf_lsm_v(0)%uvw_abs,          &
     2240                                               surf_usm_v(0)%uvw_abs,          &
     2241                                               surf_def_v(1)%uvw_abs,          &
     2242                                               surf_lsm_v(1)%uvw_abs,          &
     2243                                               surf_usm_v(1)%uvw_abs,          &
     2244                                               surf_def_v(2)%uvw_abs,          &
     2245                                               surf_lsm_v(2)%uvw_abs,          &
     2246                                               surf_usm_v(2)%uvw_abs,          &
     2247                                               surf_def_v(3)%uvw_abs,          &
     2248                                               surf_lsm_v(3)%uvw_abs,          &
     2249                                               surf_usm_v(3)%uvw_abs )
     2250               ELSE
     2251!
     2252!--               Output of averaged data
     2253                  surfaces%var_out(:) = surfaces%var_av(:,n_out) /             &
     2254                                        REAL( average_count_surf, KIND=wp )
     2255                  surfaces%var_av(:,n_out) = 0.0_wp
     2256                                                       
     2257               ENDIF   
    22262258
    22272259!
     
    27472779                                           surf_lsm_v(3)%q_surface,            &
    27482780                                           surf_usm_v(3)%q_surface, n_out )
     2781                                           
    27492782
    27502783            CASE ( 'theta_surface' )
     
    30893122                                           surf_lsm_v(3)%rad_lw_res,           &
    30903123                                           surf_usm_v(3)%rad_lw_res, n_out )
     3124                                           
     3125            CASE ( 'uvw1' )
     3126               CALL surface_data_output_sum_up( surf_def_h(0)%uvw_abs,         &
     3127                                           surf_def_h(1)%uvw_abs,              &
     3128                                           surf_lsm_h%uvw_abs,                 &
     3129                                           surf_usm_h%uvw_abs,                 &
     3130                                           surf_def_v(0)%uvw_abs,              &
     3131                                           surf_lsm_v(0)%uvw_abs,              &
     3132                                           surf_usm_v(0)%uvw_abs,              &
     3133                                           surf_def_v(1)%uvw_abs,              &
     3134                                           surf_lsm_v(1)%uvw_abs,              &
     3135                                           surf_usm_v(1)%uvw_abs,              &
     3136                                           surf_def_v(2)%uvw_abs,              &
     3137                                           surf_lsm_v(2)%uvw_abs,              &
     3138                                           surf_usm_v(2)%uvw_abs,              &
     3139                                           surf_def_v(3)%uvw_abs,              &
     3140                                           surf_lsm_v(3)%uvw_abs,              &
     3141                                           surf_usm_v(3)%uvw_abs, n_out )                               
    30913142
    30923143         END SELECT
     
    36113662
    36123663            CASE ( 'usws', 'vsws' )
     3664           
     3665            CASE ( 'uvw1' )
    36133666
    36143667            CASE ( 'qcsws', 'ncsws', 'qrsws', 'nrsws', 'sasws' )
Note: See TracChangeset for help on using the changeset viewer.