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

preliminary changes for precipitation output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/read_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
     
    219220             ALLOCATE( pr_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
    220221             READ ( 13 )  pr_av
     222          CASE ( 'precipitation_amount' )
     223             READ ( 13 )  precipitation_amount
     224          CASE ( 'precipitation_rate_a' )
     225             ALLOCATE( precipitation_rate_av(nys-1:nyn+1,nxl-1:nxr+1) )
     226             READ ( 13 )  precipitation_rate_av
    221227          CASE ( 'pt' )
    222228             READ ( 13 )  pt
     
    336342          CASE ( 'z0' )
    337343             READ ( 13 )  z0
     344          CASE ( 'z0_av' )
     345             ALLOCATE( z0_av(nys-1:nyn+1,nxl-1:nxr+1) )
     346             READ ( 13 )  z0_av
    338347
    339348          CASE ( 'cross_linecolors' )
Note: See TracChangeset for help on using the changeset viewer.