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

Timestamp:

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

Author:

raasch

Message:

preliminary changes for precipitation output

File:

• palm/trunk/SOURCE/modules.f90 (modified) (5 diffs)

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Actual revisions:
 ! -----------------
-! +array rif_wall
+! +arrays precipitation_amount, precipitation_rate, precipitation_rate_av,
+! rif_wall, z0_av
 ! +loop_optimization, netcdf_64bit_3d, zu_s_inner, zw_w_inner, id_var_zusi_*,
 ! id_var_zwwi_*, ts_value, u_nzb_p1_for_vfc, v_nzb_p1_for_vfc, pt_reference,
-! use_pt_reference,
+! use_pt_reference, precipitation_amount_interval
 ! +age_m in particle_type
 ! -data_output_ts, dots_n
@@ -128 +129 @@
 !------------------------------------------------------------------------------!
 
-    REAL, DIMENSION(:,:), ALLOCATABLE ::  lwp_av, ts_av, us_av
+    REAL, DIMENSION(:,:), ALLOCATABLE ::  lwp_av, precipitation_rate_av, &
+                                          ts_av, us_av, z0_av
 
     REAL, DIMENSION(:,:,:), ALLOCATABLE, TARGET :: &
@@ -156 +158 @@
     REAL, DIMENSION(:), ALLOCATABLE :: hydro_press, pt_d_t, t_d_pt
 
+    REAL, DIMENSION(:,:), ALLOCATABLE ::  precipitation_amount, &
+                                          precipitation_rate
+
     SAVE
 
@@ -211 +216 @@
     CHARACTER (LEN=8)   ::  run_date, run_time
     CHARACTER (LEN=9)   ::  simulated_time_chr
-    CHARACTER (LEN=12)  ::  version = 'PALM   3.1c'
+    CHARACTER (LEN=12)  ::  version = 'PALM   3.2'
     CHARACTER (LEN=16)  ::  loop_optimization = 'default', &
                             momentum_advec = 'pw-scheme', &
@@ -333 +338 @@
              overshoot_limit_u = 0.0, overshoot_limit_v = 0.0, &
              overshoot_limit_w = 0.0, particle_maximum_age = 9999999.9, &
-             phi = 55.0, prandtl_number = 1.0, pt_reference = 9999999.9, &
+             phi = 55.0, prandtl_number = 1.0, &
+             precipitation_amount_interval = 9999999.9, &
+             pt_reference = 9999999.9, &
              pt_slope_offset = 0.0, pt_surface = 300.0, &
              pt_surface_initial_change = 0.0, q_surface = 0.0, &