Changeset 3855 for palm


Ignore:
Timestamp:
Apr 3, 2019 10:00:59 AM (2 years ago)
Author:
suehring
Message:

In projection of non-building 3D objects onto numerical grid remove dependency on building_type

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r3763 r3855  
    2525! -----------------
    2626! $Id$
     27! In projection of non-building 3D objects onto numerical grid remove
     28! dependency on building_type
     29!
     30! 3763 2019-02-25 17:33:49Z suehring
    2731! Replace work-around for ghost point exchange of 1-byte arrays with specific
    2832! routine as already done in other routines
     
    16061610!--                exclusively by building type 7, terrain shape should be
    16071611!--                maintained.
    1608                    IF ( building_type_f%var(j,i) /= 7 )  THEN
    1609                       DO k = topo_top_index + 1, nzt + 1     
    1610                          IF ( zw(k) - ocean_offset <= oro_max(nr) )  THEN
    1611                             topo_3d(k,j,i) = IBCLR( topo_3d(k,j,i), 0 )
    1612                             topo_3d(k,j,i) = IBSET( topo_3d(k,j,i), 2 )
    1613                          ENDIF
    1614                       ENDDO       
    1615 !
    1616 !--                   After surface irregularities are smoothen, determine lower
    1617 !--                   start index where building starts.
    1618                       DO  k = nzb, nzt
    1619                          IF ( zw(k) - ocean_offset <= oro_max(nr) )            &
    1620                             topo_top_index = k
    1621                       ENDDO
     1612                   IF ( building_type_f%from_file )  THEN
     1613                      IF ( building_type_f%var(j,i) /= 7 )  THEN
     1614                         DO k = topo_top_index + 1, nzt + 1     
     1615                            IF ( zw(k) - ocean_offset <= oro_max(nr) )  THEN
     1616                               topo_3d(k,j,i) = IBCLR( topo_3d(k,j,i), 0 )
     1617                               topo_3d(k,j,i) = IBSET( topo_3d(k,j,i), 2 )
     1618                            ENDIF
     1619                         ENDDO       
     1620!                     
     1621!--                      After surface irregularities are smoothen, determine
     1622!--                      lower start index where building starts.
     1623                         DO  k = nzb, nzt
     1624                            IF ( zw(k) - ocean_offset <= oro_max(nr) )         &
     1625                               topo_top_index = k
     1626                         ENDDO
     1627                      ENDIF
    16221628                   ENDIF
    16231629!
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r3854 r3855  
    2020! Current revisions:
    2121! -----------------
    22 ! Typo removed
     22!
    2323!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Typo removed
     28!
     29! 3854 2019-04-02 16:59:33Z suehring
    2730! Bugfix in one of the checks. Typo removed.
    2831!
  • palm/trunk/SOURCE/virtual_measurement_mod.f90

    r3854 r3855  
    2020! Current revisions:
    2121! -----------------
    22 ! Remove print statement
     22!
    2323!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Remove print statement
     28!
     29! 3854 2019-04-02 16:59:33Z suehring
    2730! renamed nvar to nmeas, replaced USE chem_modules by USE chem_gasphase_mod and
    2831! nspec by nvar
Note: See TracChangeset for help on using the changeset viewer.