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

Timestamp:

Mar 7, 2007 8:38:00 AM (17 years ago)

Author:

raasch

Message:

preliminary version, several changes to be explained later

File:

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

palm/trunk/SOURCE/read_3d_binary.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +rif_wall
 !
 ! Former revisions:
@@ -267 +267 @@
           CASE ( 'rif_m' )
              READ ( 13 )  rif_m
+          CASE ( 'rif_wall' )
+             READ ( 13 )  rif_wall
           CASE ( 's_av' )
              ALLOCATE( s_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )