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

palm/trunk/SOURCE/data_output_3d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Flag urban_surface is now defined in module control_parameters,
+! changed prefix for urban surface model output to "usm_",
+! introduced control parameter varnamelength for LEN of trimvar.
 ! 
 ! Former revisions:
@@ -152 +154 @@
         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
+               simulated_time, time_since_reference_point, urban_surface,      &
+               varnamelength
         
     USE cpulog,                                                                &
@@ -183 +186 @@
 
     USE urban_surface_mod,                                                     &
-        ONLY:  nzub, nzut, urban_surface, usm_data_output_3d
+        ONLY:  nzub, nzut, usm_data_output_3d
 
 
@@ -208 +211 @@
     REAL(wp), DIMENSION(:,:,:), POINTER ::  to_be_resorted  !< 
 
-    CHARACTER (LEN=20) ::  trimvar  !< TRIM of output-variable string
+    CHARACTER (LEN=varnamelength) ::  trimvar  !< TRIM of output-variable string
 
 !
@@ -275 +278 @@
 !--    Store the array chosen on the temporary array.
        trimvar = TRIM( do3d(av,if) )
-       IF ( urban_surface  .AND.  trimvar(1:3) == 'us_' )  THEN
+       IF ( urban_surface  .AND.  trimvar(1:4) == 'usm_' )  THEN
           trimvar = 'usm_output'
           resorted = .TRUE.