Changeset 4856 for palm/trunk/SOURCE/modules.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/modules.f90 (modified) (3 diffs)

palm/trunk/SOURCE/modules.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! array size for profiles increased from 400 to 500
+!
+! 4853 2021-01-25 07:56:09Z raasch
 ! array size for profiles increased from 300 to 400
 !
@@ -760 +763 @@
     CHARACTER (LEN=1000) ::  message_string = ' '                         !< dynamic string for error message output
 
-    CHARACTER (LEN=varnamelength), DIMENSION(200) ::  data_output_pr_user = ' '  !< namelist parameter
-    CHARACTER (LEN=varnamelength), DIMENSION(400) ::  data_output_pr = ' '       !< namelist parameter
+    CHARACTER (LEN=varnamelength), DIMENSION(300) ::  data_output_pr_user = ' '  !< namelist parameter
+    CHARACTER (LEN=varnamelength), DIMENSION(500) ::  data_output_pr = ' '       !< namelist parameter
     CHARACTER (LEN=varnamelength), DIMENSION(500) ::  data_output = ' '          !< namelist parameter
     CHARACTER (LEN=varnamelength), DIMENSION(500) ::  data_output_user = ' '     !< namelist parameter
@@ -1620 +1623 @@
     INTEGER(iwp) ::  profile_rows = 3     !< number of coordinate systems on a profile plot per row
 
-    INTEGER(iwp) ::  dopr_index(400) = 0                !< index number of respective profile quantity
-    INTEGER(iwp) ::  dopr_initial_index(400) = 0        !< index number of initial profiles to be output
+    INTEGER(iwp) ::  dopr_index(500) = 0                !< index number of respective profile quantity
+    INTEGER(iwp) ::  dopr_initial_index(500) = 0        !< index number of initial profiles to be output
 
     SAVE