Changeset 75 for palm/trunk/SOURCE/write_3d_binary.f90

Timestamp:

Mar 22, 2007 9:54:05 AM (17 years ago)

Author:

raasch

Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:

• palm/trunk/SOURCE/write_3d_binary.f90 (modified) (3 diffs)

palm/trunk/SOURCE/write_3d_binary.f90

@@ -5 +5 @@
 ! -----------------
 ! +precipitation_amount, precipitation_rate_av, rif_wall, u_m_l, u_m_r, etc.,
-! z0_av
+! z0_av, moisture renamed humidity
 !
 ! Former revisions:
@@ -107 +107 @@
     ENDIF
     WRITE ( 14 )  'pt_m                ';  WRITE ( 14 )  pt_m
-    IF ( moisture  .OR. passive_scalar )  THEN
+    IF ( humidity  .OR. passive_scalar )  THEN
        WRITE ( 14 )  'q                   ';  WRITE ( 14 )  q 
        IF ( ALLOCATED( q_av ) )  THEN
@@ -209 +209 @@
        WRITE ( 14 )  'v_m_s               ';  WRITE ( 14 )  v_m_s
     ENDIF
-    IF ( moisture )  THEN
+    IF ( humidity )  THEN
        WRITE ( 14 )  'vpt                 ';  WRITE ( 14 )  vpt
        IF ( ALLOCATED( vpt_av ) )  THEN