Changeset 2232 for palm/trunk/SOURCE/data_output_3d.f90

Timestamp:

May 30, 2017 5:47:52 PM (7 years ago)

Author:

suehring

Message:

Adjustments according new topography and surface-modelling concept implemented

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Adjustments to new topography concept
 ! 
 ! Former revisions:
@@ -152 +152 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  e, nr, p, pt, prr, q, qc, ql, ql_c, ql_v, qr, rho_ocean, s, sa, tend, &
-               u, v, vpt, w
+        ONLY:  e, nr, p, pt, prr, q, qc, ql, ql_c, ql_v, qr, rho_ocean, s, sa, &
+               tend, u, v, vpt, w
         
     USE averaging
@@ -162 +162 @@
     USE control_parameters,                                                    &
         ONLY:  cloud_physics, do3d, do3d_no, do3d_time_count, io_blocks,       &
-               io_group, message_string, ntdim_3d, nz_do3d, psolver,           &
-               simulated_time, time_since_reference_point, urban_surface,      &
-               varnamelength
+               io_group, land_surface, message_string, ntdim_3d, nz_do3d,      &
+               psolver, simulated_time, time_since_reference_point,            &
+               urban_surface, varnamelength
         
     USE cpulog,                                                                &
@@ -175 +175 @@
     
     USE land_surface_model_mod,                                                &
-        ONLY: land_surface, lsm_data_output_3d, nzb_soil, nzt_soil
+        ONLY: lsm_data_output_3d, nzb_soil, nzt_soil
 
 #if defined( __netcdf )