Changeset 72 for palm/trunk/SOURCE/read_3d_binary.f90

Timestamp:

Mar 19, 2007 8:20:46 AM (18 years ago)

Author:

raasch

Message:

preliminary changes for precipitation output

File:

• palm/trunk/SOURCE/read_3d_binary.f90 (modified) (4 diffs)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! +rif_wall
+! +precipitation_amount, precipitation_rate_av, rif_wall, z0_av
 !
 ! Former revisions:
@@ -29 +29 @@
     USE arrays_3d
     USE averaging
+    USE cloud_parameters
     USE control_parameters
     USE cpulog
@@ -219 +220 @@
              ALLOCATE( pr_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
              READ ( 13 )  pr_av
+          CASE ( 'precipitation_amount' )
+             READ ( 13 )  precipitation_amount
+          CASE ( 'precipitation_rate_a' )
+             ALLOCATE( precipitation_rate_av(nys-1:nyn+1,nxl-1:nxr+1) )
+             READ ( 13 )  precipitation_rate_av
           CASE ( 'pt' )
              READ ( 13 )  pt
@@ -336 +342 @@
           CASE ( 'z0' )
              READ ( 13 )  z0
+          CASE ( 'z0_av' )
+             ALLOCATE( z0_av(nys-1:nyn+1,nxl-1:nxr+1) )
+             READ ( 13 )  z0_av
 
           CASE ( 'cross_linecolors' )