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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Flag urban_surface is now defined in module control_parameters,
+! changed prefix for urban surface model output to "usm_",
+! added flag lsf_exception (inipar-Namelist parameter) to allow explicit 
+! enabling of large scale forcing together with buildings on flat terrain,
+! introduced control parameter varnamelength for LEN of var.
 ! 
 ! Former revisions:
@@ -436 +440 @@
     USE transpose_indices
     USE urban_surface_mod,                                                     &
-        ONLY:  urban_surface, usm_check_data_output, usm_check_parameters
+        ONLY:  usm_check_data_output, usm_check_parameters
     USE wind_turbine_model_mod,                                                &
         ONLY:  wtm_check_parameters, wind_turbine
@@ -444 +448 @@
 
     CHARACTER (LEN=1)   ::  sq                       !< 
-    CHARACTER (LEN=15)  ::  var                      !< 
+    CHARACTER (LEN=varnamelength)  ::  var           !< 
     CHARACTER (LEN=7)   ::  unit                     !<
     CHARACTER (LEN=8)   ::  date                     !< 
@@ -3069 +3073 @@
 !
 !--          Block of urban surface model outputs
-             IF ( unit == 'illegal' .AND. urban_surface .AND. var(1:3) == 'us_' ) THEN
+             IF ( unit == 'illegal' .AND. urban_surface .AND. var(1:4) == 'usm_' ) THEN
                  CALL usm_check_data_output( var, unit )
              ENDIF
@@ -3737 +3741 @@
 
     IF ( large_scale_forcing  .AND.  topography /= 'flat'                      &
-                              .AND.  .NOT.  urban_surface )  THEN
+                              .AND.  .NOT.  lsf_exception )  THEN
        message_string = 'The usage of large scale forcing from external &'//   & 
                         'file LSF_DATA is not implemented for non-flat topography'