Changeset 2232 for palm/trunk/SOURCE/palm.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/palm.f90 (modified) (4 diffs)

palm/trunk/SOURCE/palm.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Renamed wall_flags_0 and wall_flags_00 into advc_flags_1 and advc_flags_2, 
+! respectively, within copyin statement. Moreover, introduced further flag 
+! array wall_flags_0. 
+! Remove unused variables from ONLY list.
 ! 
 ! Former revisions:
@@ -165 +168 @@
 
     USE control_parameters,                                                    &
+
         ONLY:  cloud_physics, constant_diffusion, coupling_char, coupling_mode,&
                do2d_at_begin, do3d_at_begin, humidity, initializing_actions,   &
-               io_blocks, io_group,                                            &
+               land_surface, io_blocks, io_group,                              &
                large_scale_forcing, message_string, microphysics_seifert,      &
                nest_domain, neutral,                                           &
@@ -179 +183 @@
         ONLY:  cpu_log, log_point, cpu_statistics
 
-    USE grid_variables,                                                        &
-        ONLY:  fxm, fxp, fym, fyp, fwxm, fwxp, fwym, fwyp, wall_e_x, wall_e_y, &
-               wall_u, wall_v, wall_w_x, wall_w_y
-
     USE indices,                                                               &
-        ONLY:  nbgp, ngp_2dh, ngp_2dh_s_inner, nzb_diff_s_inner, nzb_diff_s_outer,   &
-               nzb_diff_u, nzb_diff_v, nzb_s_inner, nzb_s_outer, nzb_u_inner,  &
-               nzb_u_outer, nzb_v_inner, nzb_v_outer, nzb_w_inner,             &
-               nzb_w_outer, rflags_invers, rflags_s_inner, wall_flags_0,       &
-               wall_flags_00
+        ONLY:  nbgp
 
     USE kinds
 
     USE land_surface_model_mod,                                                &
-        ONLY:  land_surface, lsm_last_actions
+        ONLY:  lsm_last_actions
 
     USE ls_forcing_mod,                                                        &
@@ -213 +209 @@
     USE radiation_model_mod,                                                   &
         ONLY:  radiation, radiation_last_actions
-
-    USE statistics,                                                            &
-        ONLY:  hom, rmask, weight_pres, weight_substep
-
-    USE surface_layer_fluxes_mod,                                              &
-        ONLY:  pt1, qv1, uv_total
-        
+       
     USE urban_surface_mod,                                                     &
         ONLY:  usm_write_restart_data