Ignore:
Timestamp:
Mar 19, 2007 8:20:46 AM (17 years ago)
Author:
raasch
Message:

preliminary changes for precipitation output

File:
1 edited

Legend:

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

    r51 r72  
    44! Actual revisions:
    55! -----------------
    6 ! +rif_wall
     6! +precipitation_amount, precipitation_rate_av, rif_wall, z0_av
    77!
    88! Former revisions:
     
    2929    USE arrays_3d
    3030    USE averaging
     31    USE cloud_parameters
    3132    USE control_parameters
    3233    USE cpulog
     
    9394       WRITE ( 14 )  'pr_av               ';  WRITE ( 14 )  pr_av
    9495    ENDIF
     96    IF ( ALLOCATED( precipitation_amount ) )  THEN
     97       WRITE ( 14 )  'precipitation_amount';  WRITE ( 14 )  precipitation_amount
     98    ENDIF
     99    IF ( ALLOCATED( precipitation_rate_av ) )  THEN
     100       WRITE ( 14 )  'precipitation_rate_a';  WRITE ( 14 )  &
     101                                                           precipitation_rate_av
     102    ENDIF
    95103    WRITE ( 14 )  'pt                  ';  WRITE ( 14 )  pt
    96104    IF ( ALLOCATED( pt_av ) )  THEN
     
    195203    WRITE ( 14 )  'w_m                 ';  WRITE ( 14 )  w_m
    196204    WRITE ( 14 )  'z0                  ';  WRITE ( 14 )  z0
     205    IF ( ALLOCATED( z0_av ) )  THEN
     206       WRITE ( 14 )  'z0_av               ';  WRITE ( 14 )  z0_av
     207    ENDIF
    197208
    198209    WRITE ( 14 )  'cross_linecolors    ';  WRITE ( 14 )  cross_linecolors
Note: See TracChangeset for help on using the changeset viewer.