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

Timestamp:

Sep 19, 2016 5:29:57 PM (8 years ago)

Author:

kanani

Message:

changes related to steering and formating of urban surface model

File:

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

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! +urban_surface, +lsf_exception, +varnamelength
 ! 
 ! Former revisions:
@@ -589 +589 @@
     
     INTEGER, PARAMETER :: mask_xyz_dimension = 100, max_masks = 50
+    INTEGER(iwp), PARAMETER ::  varnamelength = 30  !< length of output variable names
 
     TYPE(file_status), DIMENSION(200+2*max_masks) ::                &
@@ -634 +635 @@
     CHARACTER (LEN=1000) ::  message_string = ' '
 
-    CHARACTER (LEN=20), DIMENSION(500) ::  data_output = ' ',    &
+    CHARACTER (LEN=varnamelength), DIMENSION(500) ::  data_output = ' ',    &
                                            data_output_user = ' ', doav = ' '
-    CHARACTER (LEN=20), DIMENSION(max_masks,100) ::  &
+    CHARACTER (LEN=varnamelength), DIMENSION(max_masks,100) ::  &
          data_output_masks = ' ', data_output_masks_user = ' '
 
-    CHARACTER (LEN=20), DIMENSION(300) ::  data_output_pr = ' '
-    CHARACTER (LEN=20), DIMENSION(200) ::  data_output_pr_user = ' '
-    CHARACTER (LEN=20), DIMENSION(max_masks,0:1,100) ::  domask = ' '
-    CHARACTER (LEN=20), DIMENSION(0:1,500) ::  do2d = ' ', do3d = ' '
+    CHARACTER (LEN=varnamelength), DIMENSION(300) ::  data_output_pr = ' '
+    CHARACTER (LEN=varnamelength), DIMENSION(200) ::  data_output_pr_user = ' '
+    CHARACTER (LEN=varnamelength), DIMENSION(max_masks,0:1,100) ::  domask = ' '
+    CHARACTER (LEN=varnamelength), DIMENSION(0:1,500) ::  do2d = ' ', do3d = ' '
 
     INTEGER(iwp), PARAMETER :: fl_max = 100, var_fl_max = 20
@@ -728 +729 @@
                 inflow_r = .FALSE., inflow_s = .FALSE., &
                 large_scale_forcing = .FALSE., &
-                large_scale_subsidence = .FALSE., lsf_surf = .TRUE., &
+                large_scale_subsidence = .FALSE.
+    LOGICAL ::  lsf_exception = .FALSE.  !< temporary flag for use of lsf with buildings on flat terrain
+    LOGICAL ::  lsf_surf = .TRUE., &
                 lsf_vert = .TRUE., lptnudge = .FALSE., lqnudge = .FALSE., &
                 lunudge = .FALSE., lvnudge = .FALSE., lwnudge = .FALSE., &
@@ -736 +739 @@
                 microphysics_seifert = .FALSE., &
                 mg_switch_to_pe0 = .FALSE., &
-                monotonic_adjustment = .FALSE., virtual_flight = .FALSE.
+                monotonic_adjustment = .FALSE.
     LOGICAL ::  nest_bound_l = .FALSE. !< nested boundary on left side
     LOGICAL ::  nest_bound_n = .FALSE. !< nested boundary on north side
@@ -752 +755 @@
                 stop_dt = .FALSE., synchronous_exchange = .FALSE., &
                 terminate_run = .FALSE., transpose_compute_overlap = .FALSE., &
-                turbulent_inflow = .FALSE., &
-                use_cmax = .TRUE., use_initial_profile_as_reference = .FALSE., &
+                turbulent_inflow = .FALSE.
+    LOGICAL ::  urban_surface = .FALSE.  !< flag for urban surface model
+    LOGICAL ::  use_cmax = .TRUE., use_initial_profile_as_reference = .FALSE., &
                 use_prescribed_profile_data = .FALSE., &
                 use_single_reference_value = .FALSE., &
                 use_subsidence_tendencies = .FALSE., &
                 use_surface_fluxes = .FALSE., use_top_fluxes = .FALSE., &
-                use_ug_for_galilei_tr = .TRUE., use_upstream_for_tke = .FALSE.,&
-                wall_adjustment = .TRUE., ws_scheme_sca = .FALSE., &
+                use_ug_for_galilei_tr = .TRUE., use_upstream_for_tke = .FALSE.
+    LOGICAL ::  virtual_flight = .FALSE.  !< flag for virtual flight model
+    LOGICAL ::  wall_adjustment = .TRUE., ws_scheme_sca = .FALSE., &
                 ws_scheme_mom = .FALSE.