Changeset 4760 for palm/trunk/SOURCE/dynamics_mod.f90

Timestamp:

Oct 26, 2020 1:26:47 PM (4 years ago)

Author:

schwenkel

Message:

rename variable

File:

• palm/trunk/SOURCE/dynamics_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/dynamics_mod.f90

@@ -522 +522 @@
     REAL(wp)     ::  q_s !< saturation mixing ratio
     REAL(wp)     ::  t_l !< actual temperature
-    REAL(wp)     ::  rh     = 9999999.9_wp !< relative humidity
+    REAL(wp)     ::  rh_check = 9999999.9_wp !< relative humidity
     REAL(wp)     ::  rh_min = 9999999.9_wp !< max relative humidity
     REAL(wp)     ::  height = 9999999.9_wp !< height of supersaturated regions
@@ -547 +547 @@
                 IF ( q(k,j,i) > 1.02_wp * q_s )  THEN
                    realistic_q = .FALSE.
-                   rh = q(k,j,i) / q_s * 100.0_wp
+                   rh_check = q(k,j,i) / q_s * 100.0_wp
                    height = zu(k)
                 ENDIF
@@ -558 +558 @@
 #if defined( __parallel )
        CALL MPI_ALLREDUCE( MPI_IN_PLACE, realistic_q, 1, MPI_LOGICAL, MPI_LAND, comm2d, ierr)
-       CALL MPI_ALLREDUCE( rh, rh_min, 1, MPI_REAL, MPI_MIN, comm2d, ierr )
+       CALL MPI_ALLREDUCE( rh_check, rh_min, 1, MPI_REAL, MPI_MIN, comm2d, ierr )
        CALL MPI_ALLREDUCE( height, min_height, 1, MPI_REAL, MPI_MIN, comm2d, ierr )
 #endif