Ignore:
Timestamp:
Jun 7, 2017 1:58:08 PM (4 years ago)
Author:
suehring
Message:

change default value of zeta_min; enable scalar/heat/water-fluxes at downward-facing surfaces, bugfix Makefile

File:
1 edited

Legend:

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

    r2233 r2256  
    2424! Former revisions:
    2525! -----------------
    26 
    27 ! Revision 1.1  2016/12/20 10:06:06  suehring
     26! $Id$
     27! Enable heating at downward-facing surfaces
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2830! Initial revision
    2931!
     
    13511353                   ENDIF
    13521354!
    1353 !--             Set heat-flux at downward-facing surfaces to zero
     1355!--             Set heat-flux at downward-facing surfaces
    13541356                ELSE
    1355                    surf%shf(num_h) = 0.0_wp
     1357                   surf%shf(num_h) = wall_heatflux(5) *                        &
     1358                                             heatflux_input_conversion(k)
    13561359                ENDIF
    13571360
     
    13691372                      ENDIF
    13701373                   ELSE
    1371                       surf%qsws(num_h) = 0.0_wp
     1374                      surf%qsws(num_h) = wall_humidityflux(5) *                &
     1375                                             heatflux_input_conversion(k)
    13721376                   ENDIF
    13731377                ENDIF
     
    13791383
    13801384                         IF ( k-1 /= 0 )                                       &
    1381                             surf%ssws(num_h) = wall_scalarflux(0) *            &
    1382                                                   waterflux_input_conversion(k-1)
     1385                            surf%ssws(num_h) = wall_scalarflux(0)
    13831386
    13841387                      ELSE
     
    13861389                      ENDIF
    13871390                   ELSE
    1388                       surf%ssws(num_h) = 0.0_wp
     1391                      surf%ssws(num_h) = wall_scalarflux(5)
    13891392                   ENDIF
    13901393                ENDIF
Note: See TracChangeset for help on using the changeset viewer.