Changeset 1074


Ignore:
Timestamp:
Dec 3, 2012 11:00:05 AM (11 years ago)
Author:
hoffmann
Message:

bugfix in write_3d_binary

File:
1 edited

Legend:

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

    r1054 r1074  
    2020! Current revisions:
    2121! -----------------
     22! Bugfix in writing qr, nr
    2223!
    2324! Former revisions:
     
    176177             WRITE ( 14 )  'ql_av               ';  WRITE ( 14 )  ql_av
    177178          ENDIF
    178           IF ( icloud_scheme == 0 )  THEN
     179          IF ( icloud_scheme == 0  .AND.  cloud_physics )  THEN
    179180             WRITE ( 14 )  'qr                  ';  WRITE ( 14 ) qr
    180181             WRITE ( 14 )  'nr                  ';  WRITE ( 14 ) nr
Note: See TracChangeset for help on using the changeset viewer.