Changeset 51 for palm/trunk/SOURCE/write_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/write_3d_binary.f90 (modified) (2 diffs)

palm/trunk/SOURCE/write_3d_binary.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +rif_wall
 !
 ! Former revisions:
@@ -137 +137 @@
     IF ( timestep_scheme(1:5) /= 'runge' )  THEN
        WRITE ( 14 )  'rif_m               ';  WRITE ( 14 )  rif_m
+    ENDIF
+    IF ( topography /= 'flat' )  THEN
+       WRITE ( 14 )  'rif_wall            ';  WRITE ( 14 )  rif_wall
     ENDIF
     IF ( ALLOCATED( s_av ) )  THEN