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

palm/trunk/SOURCE/netcdf_interface_mod.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:
@@ -174 +176 @@
  MODULE netcdf_interface
 
-    USE control_parameters, ONLY: max_masks, fl_max, var_fl_max
+    USE control_parameters, ONLY: max_masks, fl_max, var_fl_max, varnamelength
     USE kinds
 #if defined( __netcdf )
@@ -417 +419 @@
                simulated_time_at_begin, skip_time_data_output_av,              &
                skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,        &
-               skip_time_do3d, topography, num_leg, num_var_fl
+               skip_time_do3d, topography, num_leg, num_var_fl,                &
+               urban_surface
 
     USE grid_variables,                                                        &
@@ -448 +451 @@
 
     USE urban_surface_mod,                                                     &
-        ONLY:  urban_surface, usm_define_netcdf_grid
+        ONLY:  usm_define_netcdf_grid
 
 
@@ -463 +466 @@
     CHARACTER (LEN=10)             ::  precision             !<
     CHARACTER (LEN=10)             ::  var                   !<
-    CHARACTER (LEN=20)             ::  trimvar               !< TRIM of output-variable string
+    CHARACTER (LEN=varnamelength)  ::  trimvar               !< TRIM of output-variable string
     CHARACTER (LEN=80)             ::  time_average_text     !<
     CHARACTER (LEN=4000)           ::  char_cross_profiles   !<
@@ -761 +764 @@
 !--          surface model (urban_surface_mod.f90), see also SELECT CASE ( trimvar )
              trimvar = TRIM( domask(mid,av,i) )
-             IF ( urban_surface  .AND.  trimvar(1:3) == 'us_' )  THEN
+             IF ( urban_surface  .AND.  trimvar(1:4) == 'usm_' )  THEN
                 trimvar = 'usm_output'
              ENDIF
@@ -1283 +1286 @@
 !--          surface model (urban_surface_mod.f90), see also SELECT CASE ( trimvar )
              trimvar = TRIM( do3d(av,i) )
-             IF ( urban_surface  .AND.  trimvar(1:3) == 'us_' )  THEN
+             IF ( urban_surface  .AND.  trimvar(1:4) == 'usm_' )  THEN
                 trimvar = 'usm_output'
              ENDIF