Changeset 2327


Ignore:
Timestamp:
Aug 2, 2017 7:40:57 AM (4 years ago)
Author:
maronga
Message:

temporary bugfix for calculation of air density

File:
1 edited

Legend:

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

    r2320 r2327  
    2525! -----------------
    2626! $Id$
     27! Temporary bugfix
     28!
     29! 2320 2017-07-21 12:47:43Z suehring
    2730! Modularize large-scale forcing and nudging
    2831!
     
    343346!> or
    344347!> c) read values of a previous run
     348!> @todo fix crashes for runs with topography and density /= 1
    345349!------------------------------------------------------------------------------!
    346350 SUBROUTINE init_3d_model
     
    733737       rho_air_zw(nzt+1)  = rho_air_zw(nzt)                                    &
    734738                            + 2.0_wp * ( rho_air(nzt+1) - rho_air_zw(nzt)  )
    735     ENDIF
     739
     740!
     741!--    Temporary workaround as runs with topography do not work with density /= 1
     742       rho_air    = 1.0_wp
     743       rho_air_zw = 1.0_wp
     744
     745    ENDIF
     746
     747
     748
    736749
    737750!-- compute the inverse density array in order to avoid expencive divisions
Note: See TracChangeset for help on using the changeset viewer.