Changeset 2719
 Timestamp:
 Jan 2, 2018 9:02:06 AM (5 years ago)
 Location:
 palm/trunk/SOURCE
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/calc_liquid_water_content.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 ! … … 144 147 ENDIF 145 148 ELSEIF ( microphysics_morrison ) THEN 146 IF (myid == 1 ) THEN147 WRITE(9,*) "clqc", ql(1,35,2), qc(1,35,2), qr(1,35,2)148 149 ql(k,j,i) = qc(k,j,i) + qr(k,j,i) & 149 150 * MERGE( 1.0_wp, 0.0_wp, & 
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.