Changeset 1076 for palm


Ignore:
Timestamp:
Dec 5, 2012 8:30:18 AM (12 years ago)
Author:
hoffmann
Message:

bugfixes in data_output_2d and data_output_3d

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r1066 r1076  
    2020! Current revisions:
    2121! -----------------
     22! Bugfix in output of ql
    2223!
    2324! Former revisions:
     
    488489             CASE ( 'ql_xy', 'ql_xz', 'ql_yz' )
    489490                IF ( av == 0 )  THEN
    490                    IF ( icloud_scheme == 0 )  THEN
     491                   IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
    491492                      DO  i = nxlg, nxrg
    492493                         DO  j = nysg, nyng
     
    501502                   ENDIF
    502503                ELSE
    503                    IF ( icloud_scheme == 0 )  THEN
     504                   IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
    504505                      DO  i = nxlg, nxrg
    505506                         DO  j = nysg, nyng
  • palm/trunk/SOURCE/data_output_3d.f90

    r1054 r1076  
    2020! Current revisions:
    2121! -----------------
     22! Bugfix in output of ql
    2223!
    2324! Former revisions:
     
    337338          CASE ( 'ql' )
    338339             IF ( av == 0 )  THEN
    339                 IF ( icloud_scheme == 0 )  THEN
     340                IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
    340341                   DO  i = nxlg, nxrg
    341342                      DO  j = nysg, nyng
     
    350351                ENDIF
    351352             ELSE
    352                 IF ( icloud_scheme == 0 )  THEN
     353                IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
    353354                   DO  i = nxlg, nxrg
    354355                      DO  j = nysg, nyng
Note: See TracChangeset for help on using the changeset viewer.