Changeset 2718 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Jan 2, 2018 8:49:38 AM (6 years ago)

Author:

maronga

Message:

deleting of deprecated files; headers updated where needed

File:

• palm/trunk/SOURCE/prognostic_equations.f90 (modified) (5 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 1997-2017 Leibniz Universitaet Hannover
+! Copyright 1997-2018 Leibniz Universitaet Hannover
 !------------------------------------------------------------------------------!
 !
@@ -1112 +1112 @@
 !--             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) + &
@@ -1122 +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
 !
@@ -2184 +2190 @@
              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) )  &
@@ -2193 +2202 @@
                                           )
                    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