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

Timestamp:

Jan 25, 2021 7:56:09 AM (3 years ago)

Author:

raasch

Message:

array sizes for output profiles increased from 300 to 400

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 300 to 400
+!
+! 4844 2021-01-18 09:22:26Z raasch
 ! bugfix: size of some profile arrays increased
 !
@@ -193 +196 @@
          (/ 'wtheta0', 'w*2    ', 't*w2   ', 'w*3    ', 'w*2t*w ', 'w*t*w2 ', 'z_i    ' /)
 
-    CHARACTER (LEN=9), DIMENSION(300) ::  dopr_unit = 'unknown'
+    CHARACTER (LEN=9), DIMENSION(400) ::  dopr_unit = 'unknown'
 
     CHARACTER (LEN=7), DIMENSION(dopts_num) :: dopts_label =                                       &
@@ -329 +332 @@
     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(300,0:99)       ::  id_dim_z_pr, id_var_dopr, id_var_z_pr
+    INTEGER(iwp), DIMENSION(400,0:99)       ::  id_dim_z_pr, id_var_dopr, id_var_z_pr
     INTEGER(iwp), DIMENSION(dots_max,0:99)  ::  id_var_dots