! ! lstore is the size of the main storage array. It can be ! changed iat any time if needed. statistics on its use ! are output on restart and exiting of the interface. ! ihighwater is the maximum amount of a(*) used by the interface, ! and ntemp denotes the boundary between grid storage and ! free (temp) space that is available for use by any routine ! INTEGER :: lstore,ntemp,ihighwater PARAMETER( lstore = 99900000 ) ! for 1 67x67x35 grids REAL :: a(lstore) COMMON /cmalloc/ ntemp,a,ihighwater