Changeset 3608 for palm


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

Bugfix in initialization of surfaces in cyclic-fill case + bugfix in radiation output

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3589 r3608  
    2525! -----------------
    2626! $Id$
     27! Bugfix in initialization of surfaces in cyclic-fill case
     28!
     29! 3589 2018-11-30 15:09:51Z suehring
    2730! Move the control parameter "salsa" from salsa_mod to control_parameters
    2831! (M. Kurppa)
     
    16041607                              .FALSE. )
    16051608!
    1606 !--    Initialize surface elements and its attributes, e.g. heat- and
    1607 !--    momentumfluxes, roughness, scaling parameters. As number of surface
    1608 !--    elements might be different between runs, e.g. in case of cyclic fill,
    1609 !--    and not all surface elements are read, surface elements need to be
    1610 !--    initialized before.     
    1611        CALL init_surfaces
    1612 !
    16131609!--    When reading data for cyclic fill of 3D prerun data files, read
    16141610!--    some of the global variables from the restart file which are required
     
    16371633#endif
    16381634       ENDDO
     1635!
     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
    16391645
    16401646!
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r3607 r3608  
    2828! -----------------
    2929! $Id$
     30! Bugfix radiation output
     31!
     32! 3607 2018-12-07 11:56:58Z suehring
    3033! Output of radiation-related quantities migrated to radiation_model_mod.
    3134!
     
    1037210375
    1037310376            IF ( surf(ix,isurfs) == is  .AND.  surf(iy,isurfs) == js  .AND. surf(iz,isurfs) == ks  .AND. &
    10374                  (surf(id,isurfs) == idsint_u .OR. surfl(id,isurf) == idsint_l ) ) THEN
     10377                 (surf(id,isurfs) == idsint_u .OR. surfl(id,isurfs) == idsint_l ) ) THEN
    1037510378!--            correct source surface
    1037610379               local_pf(surfl(ix,isurflt),surfl(iy,isurflt),surfl(iz,isurflt)) = svf(k,isvf)
Note: See TracChangeset for help on using the changeset viewer.