module inital

! Dynamics initialization

implicit none
private

public cam_initial

!=========================================================================
contains
!=========================================================================

subroutine cam_initial( dyn_in, dyn_out, NLFileName )

   use dyn_comp,             only : dyn_import_t, dyn_export_t, dyn_init
   use phys_grid,            only : phys_grid_init
   use chem_surfvals,        only : chem_surfvals_init
   use cam_initfiles,        only : initial_file_get_id
   use startup_initialconds, only : initial_conds
   use ref_pres,             only : ref_pres_init
   use dynamics_vars,        only : T_FVDYCORE_STATE   
   use dyn_internal_state,   only : get_dyn_state

   ! Arguments
   type(dyn_import_t), intent(out) :: dyn_in
   type(dyn_export_t), intent(out) :: dyn_out
   character(len=*),   intent(in)  :: NLFileName

   ! LOCAL VARIABLES:
   type (T_FVDYCORE_STATE), pointer :: dyn_state
   !-----------------------------------------------------------------------

   dyn_state => get_dyn_state()

   call dyn_init(initial_file_get_id(), dyn_state, dyn_in, dyn_out, NLFileName )

   ! Initialize dynamics grid
   call initcom

   ! Define physics data structures
   call phys_grid_init

   ! Initialize ghg surface values before default initial distributions
   ! are set in inidat.
   call chem_surfvals_init()

   ! Initialize physics grid reference pressures (needed by initialize_radbuffer)
   call ref_pres_init()

   call initial_conds( dyn_in )

end subroutine cam_initial

!=========================================================================

end module inital