Changeset 2719 for palm/trunk/SOURCE

Timestamp:

Jan 2, 2018 9:02:06 AM (7 years ago)

Author:

maronga

Message:

bugfix for last commit

Location:

palm/trunk/SOURCE

Files:

• calc_liquid_water_content.f90 (modified) (2 diffs)
• prognostic_equations.f90 (modified) (5 diffs)

palm/trunk/SOURCE/calc_liquid_water_content.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for last change.
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -144 +147 @@
                 ENDIF
              ELSEIF ( microphysics_morrison )  THEN
-                IF (myid == 1 ) THEN
-WRITE(9,*) "clqc", ql(1,35,2), qc(1,35,2), qr(1,35,2)
                 ql(k,j,i) = qc(k,j,i) + qr(k,j,i)                              &
                                       * MERGE( 1.0_wp, 0.0_wp,                 &

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for last change.
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -1112 +1115 @@
 !--             Prognostic equation for rain water content
                 DO  k = nzb+1, nzt
-IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN
-WRITE(9,*) "pre prog", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)
-ENDIF
                    qr_p(k,j,i) = qr(k,j,i) + ( dt_3d *                         &
                                                       ( tsc(2) * tend(k,j,i) + &
@@ -1125 +1125 @@
                                               ) 
                    IF ( qr_p(k,j,i) < 0.0_wp )  qr_p(k,j,i) = 0.0_wp
-IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN
-WRITE(9,*) "aft prog", qr_p(k,j,i)
-ENDIF
                 ENDDO
 !
@@ -2190 +2187 @@
              DO  j = nys, nyn
                 DO  k = nzb+1, nzt
-IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN
-WRITE(9,*) "pre prog ijk", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)
-ENDIF
                    qr_p(k,j,i) = qr(k,j,i) + ( dt_3d * ( sbt * tend(k,j,i) +   &
                                                       tsc(3) * tqr_m(k,j,i) )  &
@@ -2202 +2196 @@
                                           )
                    IF ( qr_p(k,j,i) < 0.0_wp )  qr_p(k,j,i) = 0.0_wp
-IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN
-WRITE(9,*) "aft prog ijk", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)
-ENDIF
                 ENDDO
              ENDDO