Changeset 4856 for palm/trunk/SOURCE/netcdf_interface_mod.f90

Timestamp:

Jan 25, 2021 1:59:16 PM (3 years ago)

Author:

raasch

Message:

array sizes for output profiles increased from 400 to 500

File:

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

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! size of some local arrays for profiles increased from 400 to 500
+!
+! 4853 2021-01-25 07:56:09Z raasch
 ! size of some local arrays for profiles increased from 300 to 400
 !
@@ -196 +199 @@
          (/ 'wtheta0', 'w*2    ', 't*w2   ', 'w*3    ', 'w*2t*w ', 'w*t*w2 ', 'z_i    ' /)
 
-    CHARACTER (LEN=9), DIMENSION(400) ::  dopr_unit = 'unknown'
+    CHARACTER (LEN=9), DIMENSION(500) ::  dopr_unit = 'unknown'
 
     CHARACTER (LEN=7), DIMENSION(dopts_num) :: dopts_label =                                       &
@@ -332 +335 @@
     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(400,0:99)       ::  id_dim_z_pr, id_var_dopr, id_var_z_pr
+    INTEGER(iwp), DIMENSION(500,0:99)       ::  id_dim_z_pr, id_var_dopr, id_var_z_pr
     INTEGER(iwp), DIMENSION(dots_max,0:99)  ::  id_var_dots