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

bugfix for last commit

File:
1 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,                 &
Note: See TracChangeset for help on using the changeset viewer.