subroutine alloc_drv() 1,18
c Driver to allocate arrays that become dynamic as a result of
c set-up for MPI implementation
      USE DOMAIN_DECOMP, ONLY : grid
      IMPLICIT NONE

      call alloc_dynamics(grid)
      call alloc_model_com(grid)
      call alloc_fluxes(grid)
      call alloc_geom(grid)
      call alloc_clouds_com(grid)
      call alloc_ghy_com(grid)
      call alloc_pbl_com(grid)
      call alloc_icedyn(grid)
      call alloc_icedyn_com(grid)
      call alloc_dagcom(grid)
      call alloc_diag_loc(grid)
      call alloc_smomtq(grid)
      call alloc_strat_com(grid)
      call alloc_seaice_com(grid)
      call alloc_rad_com(grid)

      call alloc_tracer_adv(grid)
      call alloc_veg_com(grid)

      end subroutine alloc_drv