Changeset 4760


Ignore:
Timestamp:
Oct 26, 2020 1:26:47 PM (4 years ago)
Author:
schwenkel
Message:

rename variable

File:
1 edited

Legend:

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

    r4757 r4760  
    522522    REAL(wp)     ::  q_s !< saturation mixing ratio
    523523    REAL(wp)     ::  t_l !< actual temperature
    524     REAL(wp)     ::  rh    = 9999999.9_wp !< relative humidity
     524    REAL(wp)     ::  rh_check = 9999999.9_wp !< relative humidity
    525525    REAL(wp)     ::  rh_min = 9999999.9_wp !< max relative humidity
    526526    REAL(wp)     ::  height = 9999999.9_wp !< height of supersaturated regions
     
    547547                IF ( q(k,j,i) > 1.02_wp * q_s )  THEN
    548548                   realistic_q = .FALSE.
    549                    rh = q(k,j,i) / q_s * 100.0_wp
     549                   rh_check = q(k,j,i) / q_s * 100.0_wp
    550550                   height = zu(k)
    551551                ENDIF
     
    558558#if defined( __parallel )
    559559       CALL MPI_ALLREDUCE( MPI_IN_PLACE, realistic_q, 1, MPI_LOGICAL, MPI_LAND, comm2d, ierr)
    560        CALL MPI_ALLREDUCE( rh, rh_min, 1, MPI_REAL, MPI_MIN, comm2d, ierr )
     560       CALL MPI_ALLREDUCE( rh_check, rh_min, 1, MPI_REAL, MPI_MIN, comm2d, ierr )
    561561       CALL MPI_ALLREDUCE( height, min_height, 1, MPI_REAL, MPI_MIN, comm2d, ierr )
    562562#endif
Note: See TracChangeset for help on using the changeset viewer.