Changeset 3700 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Jan 26, 2019 5:03:42 PM (6 years ago)

Author:

knoop

Message:

Moved user_define_netdf_grid into user_module.f90
Added module interface for the definition of additional timeseries

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -780 +780 @@
     USE module_interface,                                                      &
         ONLY:  module_interface_check_parameters,                              &
+               module_interface_check_data_output_ts,                          &
                module_interface_check_data_output_pr,                          &
                module_interface_check_data_output
@@ -790 +791 @@
         ONLY:  dopr_unit, do2d_unit, do3d_unit, netcdf_data_format,            &
                netcdf_data_format_string, dots_unit, heatflux_output_unit,     &
-               waterflux_output_unit, momentumflux_output_unit
+               waterflux_output_unit, momentumflux_output_unit,                &
+               dots_max, dots_num, dots_label
 
     USE particle_attributes
@@ -1253 +1255 @@
     dots_unit(21)    = waterflux_output_unit
     dots_unit(19:20) = momentumflux_output_unit
+
+!
+!-- Add other module specific timeseries
+    CALL module_interface_check_data_output_ts( dots_max, dots_num, dots_label, dots_unit )
+
+!
+!-- Check if maximum number of allowed timeseries is exceeded
+    IF ( dots_num > dots_max )  THEN
+       WRITE( message_string, * ) 'number of time series quantities exceeds',  &
+                                  ' its maximum of dots_max = ', dots_max,     &
+                                  '&Please increase dots_max in modules.f90.'
+       CALL message( 'init_3d_model', 'PA0194', 1, 2, 0, 6, 0 )    
+    ENDIF
 
 !