program kinit ,25
use kvar; use kcnst; use kphysmod; use micromod
implicit none
print *,'kickoff...'
call kickoff
print *,'read...'
call read_namelist_file 
call allocate_arrays 
call repoint 
if (gridtype.eq.1) then
	call arpgrid 
else if (gridtype.eq.2) then
	call nocturnal_grid
else
	call uniform_grid 
end if
zfdef=zf
zfnext=zfdef
call z_coords 
if (gridadapt.ge.1) then
	call blgrid_prep
	zf=zfnext
end if
call z_coords 
call init_fields 
call z_to_exner_to_pres 
call pres_to_mass
call mass_coords 
call calc_mean_rho 
if (wetphys.gt.0) call microphysics(1)
if (wetphys.gt.0) call microphysics(1)
dmfold=dmf
timehist=time
call open_trace(0)
call write_trace
call write_hist
call write_restart 
end