Changeset 4853

Timestamp:

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

Author:

raasch

Message:

array sizes for output profiles increased from 300 to 400

Location:

palm/trunk/SOURCE

Files:

• check_parameters.f90 (modified) (2 diffs)
• modules.f90 (modified) (3 diffs)
• netcdf_interface_mod.f90 (modified) (3 diffs)
• user_module.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! number of allowed profiles increased from 300 to 400
+!
+! 4844 2021-01-18 09:22:26Z raasch
 ! size check for profile output added
 !
@@ -1662 +1665 @@
 !--    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
+       IF ( dopr_n > 400 )  THEN
           message_string = 'output of more than 300 profiles requested'
           CALL message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )

palm/trunk/SOURCE/modules.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! array size for profiles increased from 300 to 400
+!
+! 4845 2021-01-18 11:15:37Z raasch
 ! -use_cmax and arrays required for radiation boundary conditions
 !
@@ -758 +761 @@
 
     CHARACTER (LEN=varnamelength), DIMENSION(200) ::  data_output_pr_user = ' '  !< namelist parameter
-    CHARACTER (LEN=varnamelength), DIMENSION(300) ::  data_output_pr = ' '       !< namelist parameter
+    CHARACTER (LEN=varnamelength), DIMENSION(400) ::  data_output_pr = ' '       !< namelist parameter
     CHARACTER (LEN=varnamelength), DIMENSION(500) ::  data_output = ' '          !< namelist parameter
     CHARACTER (LEN=varnamelength), DIMENSION(500) ::  data_output_user = ' '     !< namelist parameter
@@ -1617 +1620 @@
     INTEGER(iwp) ::  profile_rows = 3     !< number of coordinate systems on a profile plot per row
 
-    INTEGER(iwp) ::  dopr_index(300) = 0                !< index number of respective profile quantity
-    INTEGER(iwp) ::  dopr_initial_index(300) = 0        !< index number of initial profiles to be output
+    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
 
     SAVE

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
 

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