Changeset 3609 for palm/trunk/SOURCE


Ignore:
Timestamp:
Dec 7, 2018 1:37:59 PM (3 years ago)
Author:
suehring
Message:

Further correction in initialization of surfaces in cyclic-fill case

File:
1 edited

Legend:

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

    r3608 r3609  
    2525! -----------------
    2626! $Id$
     27! Furhter correction in initialization of surfaces in cyclic-fill case
     28!
     29! 3608 2018-12-07 12:59:57Z suehring
    2730! Bugfix in initialization of surfaces in cyclic-fill case
    2831!
     
    16071610                              .FALSE. )
    16081611!
     1612!--    Initialize surface elements and its attributes, e.g. heat- and
     1613!--    momentumfluxes, roughness, scaling parameters. As number of surface
     1614!--    elements might be different between runs, e.g. in case of cyclic fill,
     1615!--    and not all surface elements are read, surface elements need to be
     1616!--    initialized before.
     1617!--    Please note, in case of cyclic fill, surfaces should be initialized
     1618!--    after restart data is read, else, individual settings of surface
     1619!--    parameters will be overwritten from data of precursor run, hence,
     1620!--    init_surfaces is called a second time after reading the restart data.
     1621       CALL init_surfaces                       
     1622!
    16091623!--    When reading data for cyclic fill of 3D prerun data files, read
    16101624!--    some of the global variables from the restart file which are required
     
    16341648       ENDDO
    16351649!
    1636 !--    Initialize surface elements and its attributes, e.g. heat- and
    1637 !--    momentumfluxes, roughness, scaling parameters. As number of surface
    1638 !--    elements might be different between runs, e.g. in case of cyclic fill,
    1639 !--    and not all surface elements are read, surface elements need to be
    1640 !--    initialized before.
    1641 !--    Please note, surfaces should be initialized after restart data is read,
    1642 !--    else, individual settings of surface parameters will be overwritten
    1643 !--    from data of precursor run.
    1644        CALL init_surfaces
     1650!--    In case of cyclic fill, call init_surfaces a second time, so that
     1651!--    surface properties such as heat fluxes are initialized as prescribed.
     1652       IF ( TRIM( initializing_actions ) == 'cyclic_fill' )                    &
     1653          CALL init_surfaces
    16451654
    16461655!
Note: See TracChangeset for help on using the changeset viewer.