Changeset 3592 for palm/trunk/SOURCE/pmc_general_mod.f90

Timestamp:

Dec 3, 2018 12:38:40 PM (5 years ago)

Author:

suehring

Message:

Determine number of coupled arrays dynamically

File:

• palm/trunk/SOURCE/pmc_general_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_general_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Determine number of coupled arrays dynamically.
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variable removed
 ! 
@@ -99 +102 @@
     SAVE
 
+    INTEGER(iwp), PUBLIC            :: pmc_max_array          !< max # of arrays which can be coupled - will be determined dynamically in pmc_interface
+    
     INTEGER(iwp), PARAMETER, PUBLIC :: da_desclen       =  8  !<
     INTEGER(iwp), PARAMETER, PUBLIC :: da_namelen       = 16  !<
     INTEGER(iwp), PARAMETER, PUBLIC :: pmc_da_name_err  = 10  !<
-    INTEGER(iwp), PARAMETER, PUBLIC :: pmc_max_array    = 32  !< max # of arrays which can be coupled
     INTEGER(iwp), PARAMETER, PUBLIC :: pmc_max_models   = 64  !<
     INTEGER(iwp), PARAMETER, PUBLIC :: pmc_status_ok    =  0  !<