Changeset 2719 for palm/trunk/SOURCE/prognostic_equations.f90
 Timestamp:
 Jan 2, 2018 9:02:06 AM (6 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/prognostic_equations.f90
r2718 r2719 25 25 !  26 26 ! $Id$ 27 ! Bugfix for last change. 28 ! 29 ! 2718 20180102 08:49:38Z maronga 27 30 ! Corrected "Former revisions" section 28 31 ! … … 1112 1115 ! Prognostic equation for rain water content 1113 1116 DO k = nzb+1, nzt 1114 IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN1115 WRITE(9,*) "pre prog", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)1116 ENDIF1117 1117 qr_p(k,j,i) = qr(k,j,i) + ( dt_3d * & 1118 1118 ( tsc(2) * tend(k,j,i) + & … … 1125 1125 ) 1126 1126 IF ( qr_p(k,j,i) < 0.0_wp ) qr_p(k,j,i) = 0.0_wp 1127 IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN1128 WRITE(9,*) "aft prog", qr_p(k,j,i)1129 ENDIF1130 1127 ENDDO 1131 1128 ! … … 2190 2187 DO j = nys, nyn 2191 2188 DO k = nzb+1, nzt 2192 IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN2193 WRITE(9,*) "pre prog ijk", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)2194 ENDIF2195 2189 qr_p(k,j,i) = qr(k,j,i) + ( dt_3d * ( sbt * tend(k,j,i) + & 2196 2190 tsc(3) * tqr_m(k,j,i) ) & … … 2202 2196 ) 2203 2197 IF ( qr_p(k,j,i) < 0.0_wp ) qr_p(k,j,i) = 0.0_wp 2204 IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN2205 WRITE(9,*) "aft prog ijk", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)2206 ENDIF2207 2198 ENDDO 2208 2199 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.