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

Timestamp:

Jan 18, 2021 9:22:26 AM (4 years ago)

Author:

raasch

Message:

bugfix: size of some profile arrays increased, size check for profile output added

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! size check for profile output added
+!
+! 4828 2021-01-05 11:21:41Z Giersch
 ! allow prescribing initial uv_profiles AND geostrophic wind
 ! by changing error message PA0347 to an informative message
@@ -1657 +1660 @@
 
 !
+!--    Size check. Some arrays in the netcdf interface module are internally limited to 300 elements
+!--    and would need to be increased for output of more than 300 profiles.
+       IF ( dopr_n > 300 )  THEN
+          message_string = 'output of more than 300 profiles requested'
+          CALL message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )
+       ENDIF
+
+!
 !--    Determine internal profile number (for hom, homs) and store height levels
        SELECT CASE ( TRIM( data_output_pr(i) ) )