*/
*/ Change max size of p & q levels for multi-elevation model
*/
*/ Assuming NELEV=10
*/ Steve George, Mar 2015
*/
*DECLARE AMAXSIZE
*D GPB2F405.23
     &,           P_LEVELS_MAX = 10*10*9
*D GPB2F405.24
     &,           Q_LEVELS_MAX = 10*10*9)