Ignore:
Timestamp:
Jan 2, 2018 8:49:38 AM (4 years ago)
Author:
maronga
Message:

deleting of deprecated files; headers updated where needed

File:
1 edited

Legend:

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

    r2716 r2718  
    1515! PALM. If not, see <http://www.gnu.org/licenses/>.
    1616!
    17 ! Copyright 1997-2017 Leibniz Universitaet Hannover
     17! Copyright 1997-2018 Leibniz Universitaet Hannover
    1818!------------------------------------------------------------------------------!
    1919!
     
    144144                ENDIF
    145145             ELSEIF ( microphysics_morrison )  THEN
     146                IF (myid == 1 ) THEN
     147WRITE(9,*) "clqc", ql(1,35,2), qc(1,35,2), qr(1,35,2)
    146148                ql(k,j,i) = qc(k,j,i) + qr(k,j,i)                              &
    147149                                      * MERGE( 1.0_wp, 0.0_wp,                 &
Note: See TracChangeset for help on using the changeset viewer.