Ignore:
Timestamp:
Dec 3, 2018 12:38:40 PM (3 years ago)
Author:
suehring
Message:

Determine number of coupled arrays dynamically

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_general_mod.f90

    r3241 r3592  
    2626! -----------------
    2727! $Id$
     28! Determine number of coupled arrays dynamically.
     29!
     30! 3241 2018-09-12 15:02:00Z raasch
    2831! unused variable removed
    2932!
     
    99102    SAVE
    100103
     104    INTEGER(iwp), PUBLIC            :: pmc_max_array          !< max # of arrays which can be coupled - will be determined dynamically in pmc_interface
     105   
    101106    INTEGER(iwp), PARAMETER, PUBLIC :: da_desclen       =  8  !<
    102107    INTEGER(iwp), PARAMETER, PUBLIC :: da_namelen       = 16  !<
    103108    INTEGER(iwp), PARAMETER, PUBLIC :: pmc_da_name_err  = 10  !<
    104     INTEGER(iwp), PARAMETER, PUBLIC :: pmc_max_array    = 32  !< max # of arrays which can be coupled
    105109    INTEGER(iwp), PARAMETER, PUBLIC :: pmc_max_models   = 64  !<
    106110    INTEGER(iwp), PARAMETER, PUBLIC :: pmc_status_ok    =  0  !<
Note: See TracChangeset for help on using the changeset viewer.