Changeset 3196 for palm


Ignore:
Timestamp:
Aug 13, 2018 12:26:14 PM (6 years ago)
Author:
maronga
Message:

set maximum value for aerodynamic resistance over horiztonal surfaces

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/palmrungui_files/mainwindow.ui

    r2825 r3196  
    8484     <property name="geometry">
    8585      <rect>
    86        <x>120</x>
     86       <x>150</x>
    8787       <y>20</y>
    8888       <width>90</width>
     
    102102       <x>10</x>
    103103       <y>20</y>
    104        <width>91</width>
     104       <width>131</width>
    105105       <height>21</height>
    106106      </rect>
     
    122122     <property name="geometry">
    123123      <rect>
    124        <x>210</x>
     124       <x>250</x>
    125125       <y>20</y>
    126126       <width>90</width>
     
    345345       </property>
    346346      </widget>
    347       <zorder>line_jobname</zorder>
    348       <zorder>pushButton</zorder>
    349       <zorder>label</zorder>
    350       <zorder>list_jobname</zorder>
    351       <zorder>drop_job</zorder>
    352       <zorder>label_usercode</zorder>
    353       <zorder>palm_logo</zorder>
    354       <zorder>label_8</zorder>
    355347     </widget>
    356348     <widget class="QGroupBox" name="group_execution">
     
    11361128      <x>341</x>
    11371129      <y>82</y>
    1138       <width>128</width>
     1130      <width>129</width>
    11391131      <height>189</height>
    11401132     </rect>
    11411133    </property>
    11421134    <property name="title">
    1143      <string>St&amp;art</string>
     1135     <string>Sta&amp;rt</string>
    11441136    </property>
    11451137    <property name="separatorsCollapsible">
  • palm/trunk/SOURCE/land_surface_model_mod.f90

    r3161 r3196  
    2525! -----------------
    2626! $Id$
     27! Added maximum aerodynamic resistance of 300.
     28!
     29! 3161 2018-07-23 09:30:10Z maronga
    2730! Increased roughness of asphalt surfaces to account for turbulence production
    2831! by traffic and other obstacles
     
    19151918!
    19161919!--    Make sure that the resistance does not drop to zero for neutral
    1917 !--    stratification.
    1918        IF ( surf%r_a(m) < 1.0_wp )  surf%r_a(m) = 1.0_wp
     1920!--    stratification. Also, set a maximum resistance to avoid the breakdown of
     1921!--    MOST for locations with zero wind speed
     1922       IF ( surf%r_a(m) <   1.0_wp )  surf%r_a(m) =   1.0_wp
     1923       IF ( surf%r_a(m) > 300.0_wp )  surf%r_a(m) = 300.0_wp       
    19191924!
    19201925!--    Second step: calculate canopy resistance r_canopy
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r3176 r3196  
    2828! -----------------
    2929! $Id$
     30! Added maximum aerodynamic resistance of 300 for horiztonal surfaces.
     31!
     32! 3176 2018-07-26 17:12:48Z suehring
    3033! Bugfix, update virtual potential surface temparture, else heat fluxes on
    3134! roofs might become unphysical
     
    73737376!                  ( surf_usm_h%ts(m) * surf_usm_h%us(m) + 1.0E-20_wp )
    73747377               
    7375 !--        make sure that the resistance does not drop to zero
     7378!--        Make sure that the resistance does not drop to zero
    73767379           IF ( surf_usm_h%r_a(m)        < 1.0_wp )                            &
    73777380               surf_usm_h%r_a(m)        = 1.0_wp
     
    73807383           IF ( surf_usm_h%r_a_window(m) < 1.0_wp )                            &
    73817384               surf_usm_h%r_a_window(m) = 1.0_wp
     7385             
     7386!
     7387!--        Make sure that the resistacne does not exceed a maxmium value in case
     7388!--        of zero velocities
     7389           IF ( surf_usm_h%r_a(m)        > 300.0_wp )                          &
     7390               surf_usm_h%r_a(m)        = 300.0_wp
     7391           IF ( surf_usm_h%r_a_green(m)  > 300.0_wp )                          &
     7392               surf_usm_h%r_a_green(m) = 300.0_wp
     7393           IF ( surf_usm_h%r_a_window(m) > 300.0_wp )                          &
     7394               surf_usm_h%r_a_window(m) = 300.0_wp               
     7395               
    73827396               
    73837397!--        factor for shf_eb
     
    75797593!
    75807594!--          Limit aerodynamic resistance
    7581              IF ( surf_usm_v(l)%r_a(m) < 1.0_wp )                              &
    7582                 surf_usm_v(l)%r_a(m)        = 1.0_wp         
     7595             IF ( surf_usm_v(l)%r_a(m) < 1.0_wp )  surf_usm_v(l)%r_a(m) = 1.0_wp   
     7596             
    75837597                           
    75847598             f_shf         = rho_cp / surf_usm_v(l)%r_a(m)
Note: See TracChangeset for help on using the changeset viewer.