Changeset 4853 for palm/trunk/SOURCE/user_module.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/user_module.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_module.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! array size for profiles increased
+!
+! 4843 2021-01-15 15:22:11Z raasch
 ! local namelist parameter added to switch off the module although the respective module namelist
 ! appears in the namelist file
@@ -306 +309 @@
        IF ( data_output_pr_user(1) /= ' ' )  THEN
           i = 1
-          DO WHILE ( data_output_pr(i) /= ' '  .AND.  i <= 100 )
+          DO WHILE ( data_output_pr(i) /= ' '  .AND.  i <= 200 )
              i = i + 1
           ENDDO
           j = 1
-          DO WHILE ( data_output_pr_user(j) /= ' '  .AND.  j <= 100 )
+          DO WHILE ( data_output_pr_user(j) /= ' '  .AND.  j <= 200 )
              data_output_pr(i) = data_output_pr_user(j)
              max_pr_user_tmp   = max_pr_user_tmp + 1