#include <misc.h>
#include <preproc.h>
      subroutine allocdyn

#include <implicit.h>
#include <lsmpar.h>

* ------------------------ code history --------------------------------
* source file:       allocdyn.F
* purpose:           dynamically allocate memory
* date last revised: August 1996
* author:            M. Vertenstein
* ----------------------------------------------------------------------

* ------------------------ common block variables ----------------------
#include <dynmem.h>
#include <basinpar.h>
#include <basindyn.h>
#include <lsmtcdyn.h>
#include <lsmtvdyn.h>
#include <lsmhisdyn.h>
* ----------------------------------------------------------------------

* dynamically allocate memory for lpt and kpt dependent variables 
* in lsmtcdyn.h

      call getmem ('allocdyn' ,lpt     ,pixy   )           
      call getmem ('allocdyn' ,lpt     ,pjxy   )          
      call getmem ('allocdyn' ,lpt*msub,pkvec  )
      call getmem ('allocdyn' ,lpt*msub,pwsg2g )
      call getmem ('allocdyn' ,kpt     ,pklnd  )          
      call getmem ('allocdyn' ,kpt     ,pivt   ) 
      call getmem ('allocdyn' ,kpt     ,pist   ) 
      call getmem ('allocdyn' ,kpt     ,pisc   ) 
      call getmem ('allocdyn' ,kpt     ,pwatsat) 
      call getmem ('allocdyn' ,kpt     ,phksat )  
      call getmem ('allocdyn' ,kpt     ,psmpsat) 
      call getmem ('allocdyn' ,kpt     ,pbch   )    
      call getmem ('allocdyn' ,kpt     ,pwatdry) 
      call getmem ('allocdyn' ,kpt     ,pwatopt) 
      call getmem ('allocdyn' ,kpt     ,pcsol  )   
      call getmem ('allocdyn' ,kpt     ,ptksol )  
      call getmem ('allocdyn' ,kpt     ,ptkdry )  
      call getmem ('allocdyn' ,kpt*msl ,pdzsoi )
      call getmem ('allocdyn' ,kpt*msl ,pzsoi  )
      call getmem ('allocdyn' ,kpt*msl ,proot  )
      call getmem ('allocdyn' ,kpt     ,psand  )   
      call getmem ('allocdyn' ,kpt     ,pclay  )   
      call getmem ('allocdyn' ,kpt     ,plati  )   
      call getmem ('allocdyn' ,kpt     ,plong  )
      if (numlv .gt. 0) then
         call getmem ('allocdyn' ,numlv   ,pbegkpt)
         call getmem ('allocdyn' ,numlv   ,pnumkpt)
      endif

* dynamically allocate memory for lpt and kpt dependent variables 
* in lsmtvdyn.h

      call getmem ('allocdyn' ,kpt      ,ppgcm  )           
      call getmem ('allocdyn' ,kpt      ,ptgcm  )           
      call getmem ('allocdyn' ,kpt      ,pqgcm  )           
      call getmem ('allocdyn' ,kpt      ,pfirgcm)         
      call getmem ('allocdyn' ,kpt*mband,psolad )    
      call getmem ('allocdyn' ,kpt*mband,psolai )    
      call getmem ('allocdyn' ,kpt      ,pqprecc)         
      call getmem ('allocdyn' ,kpt      ,pqprecl)         
      call getmem ('allocdyn' ,kpt      ,pugcm  )           
      call getmem ('allocdyn' ,kpt      ,pvgcm  )           
      call getmem ('allocdyn' ,kpt      ,phgcm  )           
      call getmem ('allocdyn' ,kpt      ,pthgcm )          
      call getmem ('allocdyn' ,kpt      ,pegcm  )           
      call getmem ('allocdyn' ,kpt      ,prhogcm)         
      call getmem ('allocdyn' ,kpt      ,pco2gcm)         
      call getmem ('allocdyn' ,kpt      ,po2gcm )          
      call getmem ('allocdyn' ,kpt      ,ptaux  )           
      call getmem ('allocdyn' ,kpt      ,ptauy  )           
      call getmem ('allocdyn' ,kpt      ,pfire  )           
      call getmem ('allocdyn' ,kpt      ,pfsh   )            
      call getmem ('allocdyn' ,kpt      ,pfcev  )           
      call getmem ('allocdyn' ,kpt      ,pfgev  )           
      call getmem ('allocdyn' ,kpt      ,pfctr  )           
      call getmem ('allocdyn' ,kpt      ,ptrad  )           
      call getmem ('allocdyn' ,kpt      ,ptsa   )            
      call getmem ('allocdyn' ,kpt      ,pqsoil )          
      call getmem ('allocdyn' ,kpt      ,pqvege )          
      call getmem ('allocdyn' ,kpt      ,pqvegt )          
      call getmem ('allocdyn' ,kpt      ,pfpsn  )           
      call getmem ('allocdyn' ,kpt      ,pfrm   )            
      call getmem ('allocdyn' ,kpt      ,pfrg   )            
      call getmem ('allocdyn' ,kpt      ,pfmicr )          
      call getmem ('allocdyn' ,kpt      ,pfco2  )             
      call getmem ('allocdyn' ,kpt      ,pqover )             
      call getmem ('allocdyn' ,kpt      ,pqdrai )             
      call getmem ('allocdyn' ,kpt      ,ph2osno)
      call getmem ('allocdyn' ,kpt      ,ph2ocan)
      call getmem ('allocdyn' ,kpt*msl  ,ph2osoi)
      call getmem ('allocdyn' ,kpt      ,ptv    )
      call getmem ('allocdyn' ,kpt      ,ptg    )
      call getmem ('allocdyn' ,kpt*msl  ,ptsoi  )
      call getmem ('allocdyn' ,kpt      ,pmoz   )
      call getmem ('allocdyn' ,kpt      ,peah   )
      call getmem ('allocdyn' ,kpt      ,psoot  )
      call getmem ('allocdyn' ,kpt      ,phsno  )
      call getmem ('allocdyn' ,kpt      ,pfsno  )
      call getmem ('allocdyn' ,kpt      ,pfwet  )
      call getmem ('allocdyn' ,kpt      ,phtop  )
      call getmem ('allocdyn' ,kpt      ,ptlai  )
      call getmem ('allocdyn' ,kpt      ,ptsai  )
      call getmem ('allocdyn' ,kpt      ,pelai  )
      call getmem ('allocdyn' ,kpt      ,pesai  )
      call getmem ('allocdyn' ,kpt      ,pfoln  )
      call getmem ('allocdyn' ,kpt      ,pstemb )
      call getmem ('allocdyn' ,kpt      ,prootb )
      call getmem ('allocdyn' ,kpt      ,psoilc )
      call getmem ('allocdyn' ,kpt      ,pigs   )
      call getmem ('allocdyn' ,kpt*mband,palbd  )
      call getmem ('allocdyn' ,kpt*mband,palbi  )
      call getmem ('allocdyn' ,kpt*mband,palbgrd)
      call getmem ('allocdyn' ,kpt*mband,palbgri)
      call getmem ('allocdyn' ,kpt*mband,pfabd  )
      call getmem ('allocdyn' ,kpt*mband,pfabi  )
      call getmem ('allocdyn' ,kpt*mband,pftdd  )
      call getmem ('allocdyn' ,kpt*mband,pftid  )
      call getmem ('allocdyn' ,kpt*mband,pftii  )
      call getmem ('allocdyn' ,kpt      ,pfsun  )

* dynamically allocate memory for lpt and kpt dependent variables 
* in lsmhisdyn.h

      call getmem ('allocdyn' ,kpt*mslflds    ,pslfval)           
      call getmem ('allocdyn' ,kpt*mmlflds*msl,pmlfval)          
      call getmem ('allocdyn', kpt            ,plonsub)     
      call getmem ('allocdyn', kpt            ,platsub)   

* dynamically allocate memory for lpt and kpt dependent variables 
* in basindyn.h

      call getmem ('allocdyn' ,lpt*ndrnmax,pdrnbasn)
      call getmem ('allocdyn' ,lpt*ndrnmax,pdrnfrac)
      call getmem ('allocdyn' ,lpt        ,pdrnarea)
      call getmem ('allocdyn' ,lpt        ,prunoff )

      return
      end