Changeset 4844 for palm/trunk

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

Location:

palm/trunk/SOURCE

Files:

• check_parameters.f90 (modified) (2 diffs)
• netcdf_interface_mod.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) ) )

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! bugfix: size of some profile arrays increased
+!
+! 4828 2021-01-05 11:21:41Z Giersch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -326 +329 @@
     INTEGER(iwp), DIMENSION(dopts_num,0:10) ::  id_var_dopts
     INTEGER(iwp), DIMENSION(0:1,500)        ::  id_var_do2d, id_var_do3d
-    INTEGER(iwp), DIMENSION(100,0:99)       ::  id_dim_z_pr, id_var_dopr, id_var_z_pr
+    INTEGER(iwp), DIMENSION(300,0:99)       ::  id_dim_z_pr, id_var_dopr, id_var_z_pr
     INTEGER(iwp), DIMENSION(dots_max,0:99)  ::  id_var_dots