Changeset 2719


Ignore:
Timestamp:
Jan 2, 2018 9:02:06 AM (4 years ago)
Author:
maronga
Message:

bugfix for last commit

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/calc_liquid_water_content.f90

    r2718 r2719  
    2525! -----------------
    2626! $Id$
     27! Bugfix for last change.
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    144147                ENDIF
    145148             ELSEIF ( microphysics_morrison )  THEN
    146                 IF (myid == 1 ) THEN
    147 WRITE(9,*) "clqc", ql(1,35,2), qc(1,35,2), qr(1,35,2)
    148149                ql(k,j,i) = qc(k,j,i) + qr(k,j,i)                              &
    149150                                      * MERGE( 1.0_wp, 0.0_wp,                 &
  • palm/trunk/SOURCE/prognostic_equations.f90

    r2718 r2719  
    2525! -----------------
    2626! $Id$
     27! Bugfix for last change.
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    11121115!--             Prognostic equation for rain water content
    11131116                DO  k = nzb+1, nzt
    1114 IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN
    1115 WRITE(9,*) "pre prog", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)
    1116 ENDIF
    11171117                   qr_p(k,j,i) = qr(k,j,i) + ( dt_3d *                         &
    11181118                                                      ( tsc(2) * tend(k,j,i) + &
     
    11251125                                              )
    11261126                   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 ) THEN
    1128 WRITE(9,*) "aft prog", qr_p(k,j,i)
    1129 ENDIF
    11301127                ENDDO
    11311128!
     
    21902187             DO  j = nys, nyn
    21912188                DO  k = nzb+1, nzt
    2192 IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN
    2193 WRITE(9,*) "pre prog ijk", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)
    2194 ENDIF
    21952189                   qr_p(k,j,i) = qr(k,j,i) + ( dt_3d * ( sbt * tend(k,j,i) +   &
    21962190                                                      tsc(3) * tqr_m(k,j,i) )  &
     
    22022196                                          )
    22032197                   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 ) THEN
    2205 WRITE(9,*) "aft prog ijk", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)
    2206 ENDIF
    22072198                ENDDO
    22082199             ENDDO
Note: See TracChangeset for help on using the changeset viewer.