!! This code is generated automatocally by makeincludes
!! Do not change manually
subroutine outputparameters(par)
   use filefunctions
   implicit none
   type(parameters)   :: par
   integer            :: fid,i
 
   fid=create_new_fid()
   open(fid,file='params.dat',status='replace', action='write')
   write(fid,*)'swave=',par%swave
   write(fid,*)'lwave=',par%lwave
   write(fid,*)'flow=',par%flow
   write(fid,*)'sedtrans=',par%sedtrans
   write(fid,*)'morphology=',par%morphology
   write(fid,*)'avalanching=',par%avalanching
   write(fid,*)'nonh=',par%nonh
   write(fid,*)'gwflow=',par%gwflow
   write(fid,*)'q3d=',par%q3d
   write(fid,*)'swrunup=',par%swrunup
   write(fid,*)'ships=',par%ships
   write(fid,*)'depfile=',trim(adjustl(par%depfile))
   write(fid,*)'posdwn=',par%posdwn
   write(fid,*)'nx=',par%nx
   write(fid,*)'ny=',par%ny
   write(fid,*)'alfa=',par%alfa
   write(fid,*)'vardx=',par%vardx
   write(fid,*)'dx=',par%dx
   write(fid,*)'dy=',par%dy
   write(fid,*)'xfile=',trim(adjustl(par%xfile))
   write(fid,*)'yfile=',trim(adjustl(par%yfile))
   write(fid,*)'xori=',par%xori
   write(fid,*)'yori=',par%yori
   write(fid,*)'thetamin=',par%thetamin
   write(fid,*)'thetamax=',par%thetamax
   write(fid,*)'dtheta=',par%dtheta
   write(fid,*)'thetanaut=',par%thetanaut
   write(fid,*)'gridform=',trim(adjustl(par%gridform))
   write(fid,*)'xyfile=',trim(adjustl(par%xyfile))
   write(fid,*)'tstop=',par%tstop
   write(fid,*)'CFL=',par%CFL
   write(fid,*)'tunits=',trim(adjustl(par%tunits))
   write(fid,*)'g=',par%g
   write(fid,*)'rho=',par%rho
   write(fid,*)'depthscale=',par%depthscale
   write(fid,*)'zs0=',par%zs0
   write(fid,*)'zsinitfile=',trim(adjustl(par%zsinitfile))
   write(fid,*)'hotstartflow=',par%hotstartflow
   write(fid,*)'instat=',trim(adjustl(par%instat))
   write(fid,*)'taper=',par%taper
   write(fid,*)'Hrms=',par%Hrms
   write(fid,*)'Tm01=',par%Tm01
   write(fid,*)'Trep=',par%Trep
   write(fid,*)'Tlong=',par%Tlong
   write(fid,*)'dir0=',par%dir0
   write(fid,*)'nmax=',par%nmax
   write(fid,*)'m=',par%m
   write(fid,*)'lateralwave=',trim(adjustl(par%lateralwave))
   write(fid,*)'leftwave=',trim(adjustl(par%leftwave))
   write(fid,*)'rightwave=',trim(adjustl(par%rightwave))
   write(fid,*)'bcfile=',trim(adjustl(par%bcfile))
   write(fid,*)'random=',par%random
   write(fid,*)'fcutoff=',par%fcutoff
   write(fid,*)'nspr=',par%nspr
   write(fid,*)'trepfac=',par%trepfac
   write(fid,*)'sprdthr=',par%sprdthr
   write(fid,*)'oldwbc=',par%oldwbc
   write(fid,*)'newstatbc=',par%newstatbc
   write(fid,*)'correctHm0=',par%correctHm0
   write(fid,*)'oldnyq=',par%oldnyq
   write(fid,*)'Tm01switch=',par%Tm01switch
   write(fid,*)'rt=',par%rt
   write(fid,*)'dtbc=',par%dtbc
   write(fid,*)'dthetaS_XB=',par%dthetaS_XB
   write(fid,*)'nspectrumloc=',par%nspectrumloc
   write(fid,*)'wbcversion=',par%wbcversion
   write(fid,*)'front=',trim(adjustl(par%front))
   write(fid,*)'left=',trim(adjustl(par%left))
   write(fid,*)'right=',trim(adjustl(par%right))
   write(fid,*)'back=',trim(adjustl(par%back))
   write(fid,*)'ARC=',par%ARC
   write(fid,*)'order=',par%order
   write(fid,*)'freewave=',par%freewave
   write(fid,*)'carspan=',par%carspan
   write(fid,*)'epsi=',par%epsi
   write(fid,*)'tidetype=',trim(adjustl(par%tidetype))
   write(fid,*)'zs0file=',trim(adjustl(par%zs0file))
   write(fid,*)'tideloc=',par%tideloc
   write(fid,*)'paulrevere=',trim(adjustl(par%paulrevere))
   write(fid,*)'ndischarge=',par%ndischarge
   write(fid,*)'ntdischarge=',par%ntdischarge
   write(fid,*)'disch_loc_file=',trim(adjustl(par%disch_loc_file))
   write(fid,*)'disch_timeseries_file=',trim(adjustl(par%disch_timeseries_file))
   write(fid,*)'break=',trim(adjustl(par%break))
   write(fid,*)'gamma=',par%gamma
   write(fid,*)'gamma2=',par%gamma2
   write(fid,*)'alpha=',par%alpha
   write(fid,*)'n=',par%n
   write(fid,*)'gammax=',par%gammax
   write(fid,*)'delta=',par%delta
   write(fid,*)'fw=',par%fw
   write(fid,*)'fwcutoff=',par%fwcutoff
   write(fid,*)'breakerdelay=',par%breakerdelay
   write(fid,*)'shoaldelay=',par%shoaldelay
   write(fid,*)'facsd=',par%facsd
   write(fid,*)'facrun=',par%facrun
   write(fid,*)'roller=',par%roller
   write(fid,*)'beta=',par%beta
   write(fid,*)'rfb=',par%rfb
   write(fid,*)'wci=',par%wci
   write(fid,*)'hwci=',par%hwci
   write(fid,*)'cats=',par%cats
   write(fid,*)'bedfriction=',trim(adjustl(par%bedfriction))
   write(fid,*)'bedfricfile=',trim(adjustl(par%bedfricfile))
   write(fid,*)'C=',par%C
   write(fid,*)'cf=',par%cf
   write(fid,*)'nuh=',par%nuh
   write(fid,*)'nuhfac=',par%nuhfac
   write(fid,*)'nuhv=',par%nuhv
   write(fid,*)'smag=',par%smag
   write(fid,*)'wearth=',par%wearth
   write(fid,*)'lat=',par%lat
   write(fid,*)'rhoa=',par%rhoa
   write(fid,*)'Cd=',par%Cd
   write(fid,*)'windv=',par%windv
   write(fid,*)'windth=',par%windth
   write(fid,*)'windfile=',trim(adjustl(par%windfile))
   write(fid,*)'kx=',par%kx
   write(fid,*)'ky=',par%ky
   write(fid,*)'kz=',par%kz
   write(fid,*)'dwetlayer=',par%dwetlayer
   write(fid,*)'aquiferbot=',par%aquiferbot
   write(fid,*)'aquiferbotfile=',trim(adjustl(par%aquiferbotfile))
   write(fid,*)'gw0=',par%gw0
   write(fid,*)'gw0file=',trim(adjustl(par%gw0file))
   write(fid,*)'gwdelay=',par%gwdelay
   write(fid,*)'vonkar=',par%vonkar
   write(fid,*)'vicmol=',par%vicmol
   write(fid,*)'kmax=',par%kmax
   write(fid,*)'sigfac=',par%sigfac
   write(fid,*)'solver_maxit=',par%solver_maxit
   write(fid,*)'solver_acc=',par%solver_acc
   write(fid,*)'solver_urelax=',par%solver_urelax
   write(fid,*)'solver=',par%solver
   write(fid,*)'kdmin=',par%kdmin
   write(fid,*)'dispc=',par%dispc
   write(fid,*)'Topt=',par%Topt
   write(fid,*)'rhos=',par%rhos
   write(fid,*)'ngd=',par%ngd
   write(fid,*)'nd=',par%nd
   write(fid,*)'dzg1=',par%dzg1
   write(fid,*)'dzg2=',par%dzg2
   write(fid,*)'dzg3=',par%dzg3
   write(fid,*)'por=',par%por
   write(fid,*)'D50=',par%D50(1:par%ngd)
   write(fid,*)'D90=',par%D90(1:par%ngd)
   write(fid,*)'sedcal=',par%sedcal(1:par%ngd)
   write(fid,*)'ucrcal=',par%ucrcal(1:par%ngd)
   write(fid,*)'waveform=',trim(adjustl(par%waveform))
   write(fid,*)'form=',trim(adjustl(par%form))
   write(fid,*)'sws=',par%sws
   write(fid,*)'lws=',par%lws
   write(fid,*)'BRfac=',par%BRfac
   write(fid,*)'facsl=',par%facsl
   write(fid,*)'z0=',par%z0
   write(fid,*)'smax=',par%smax
   write(fid,*)'tsfac=',par%tsfac
   write(fid,*)'facua=',par%facua
   write(fid,*)'facSk=',par%facSk
   write(fid,*)'facAs=',par%facAs
   write(fid,*)'turb=',trim(adjustl(par%turb))
   write(fid,*)'Tbfac=',par%Tbfac
   write(fid,*)'Tsmin=',par%Tsmin
   write(fid,*)'lwt=',par%lwt
   write(fid,*)'betad=',par%betad
   write(fid,*)'swtable=',trim(adjustl(par%swtable))
   write(fid,*)'sus=',par%sus
   write(fid,*)'bed=',par%bed
   write(fid,*)'bulk=',par%bulk
   write(fid,*)'facDc=',par%facDc
   write(fid,*)'morfac=',par%morfac
   write(fid,*)'morfacopt=',par%morfacopt
   write(fid,*)'morstart=',par%morstart
   write(fid,*)'morstop=',par%morstop
   write(fid,*)'wetslp=',par%wetslp
   write(fid,*)'dryslp=',par%dryslp
   write(fid,*)'hswitch=',par%hswitch
   write(fid,*)'dzmax=',par%dzmax
   write(fid,*)'struct=',par%struct
   write(fid,*)'ne_layer=',trim(adjustl(par%ne_layer))
   write(fid,*)'timings=',par%timings
   write(fid,*)'tstart=',par%tstart
   write(fid,*)'tint=',par%tint
   write(fid,*)'tintg=',par%tintg
   write(fid,*)'tintp=',par%tintp
   write(fid,*)'tintc=',par%tintc
   write(fid,*)'tintm=',par%tintm
   write(fid,*)'tsglobal=',trim(adjustl(par%tsglobal))
   write(fid,*)'tspoints=',trim(adjustl(par%tspoints))
   write(fid,*)'tscross=',trim(adjustl(par%tscross))
   write(fid,*)'tsmean=',trim(adjustl(par%tsmean))
   write(fid,*)'nglobalvar=',par%nglobalvar
   do i=1,par%nglobalvar
      write(fid,*)trim(adjustl(par%globalvars(i)))
   enddo
   write(fid,*)'nmeanvar=',par%nmeanvar
   do i=1,par%nmeanvar
      write(fid,*)trim(adjustl(par%meanvars(i)))
   enddo
   write(fid,*)'npointvar=',par%npointvar
   do i=1,par%npointvar
      write(fid,*)trim(adjustl(par%pointvars(i)))
   enddo
   write(fid,*)'npoints=',trim(adjustl(par%npoints))
   do i=1,par%npoints
      write(fid,*)xpointsw(i),'  ',ypointsw(i)
   enddo
   write(fid,*)'nrugauge=',trim(adjustl(par%nrugauge))
   do i=1,par%nrugauge
      write(fid,*)xpointsw(i+par%npoints),'  ',ypointsw(i+par%npoints)
   enddo
   write(fid,*)'rugdepth=',par%rugdepth
   write(fid,*)'ncross=',par%ncross
   write(fid,*)'outputformat=',trim(adjustl(par%outputformat))
   write(fid,*)'ncfilename=',trim(adjustl(par%ncfilename))
   write(fid,*)'projection=',trim(adjustl(par%projection))
   write(fid,*)'ndrifter=',par%ndrifter
   write(fid,*)'drifterfile=',trim(adjustl(par%drifterfile))
   write(fid,*)'shipfile=',trim(adjustl(par%shipfile))
   write(fid,*)'scheme=',trim(adjustl(par%scheme))
   write(fid,*)'wavint=',par%wavint
   write(fid,*)'maxerror=',par%maxerror
   write(fid,*)'maxiter=',par%maxiter
   write(fid,*)'eps=',par%eps
   write(fid,*)'umin=',par%umin
   write(fid,*)'hmin=',par%hmin
   write(fid,*)'secorder=',par%secorder
   write(fid,*)'oldhu=',par%oldhu
   write(fid,*)'thetanum=',par%thetanum
   write(fid,*)'sourcesink=',par%sourcesink
   write(fid,*)'cmax=',par%cmax
   write(fid,*)'frac_dz=',par%frac_dz
   write(fid,*)'nd_var=',par%nd_var
   write(fid,*)'split=',par%split
   write(fid,*)'merge=',par%merge
   write(fid,*)'mpiboundary=',trim(adjustl(par%mpiboundary))
   write(fid,*)'px=',par%px
   write(fid,*)'compi=',par%compi
   write(fid,*)'rhog8=',par%rhog8
   write(fid,*)'dt=',par%dt
   write(fid,*)'t=',par%t
   write(fid,*)'tnext=',par%tnext
   close(fid)
end subroutine