include file: prognosticate2.inc 1,27

call tendencies(dqrdt,fqr,qr)
call tendencies(dqvdt,fqv,qv)
call tendencies(drcdt,frc,rc)
call tendencies(dccndt,fccn,ccn)
call tendencies(dthdt,fth,th)
call tendencies(dudt,fu,u)
call tendencies(dvdt,fv,v)
call tendencies(dugdt,fug,ug)
call tendencies(dncdt,fnc,nc)
call tendencies(dvgdt,fvg,vg)
call tendencies(dsmokedt,fsmoke,smoke)
call tendencies(dnrdt,fnr,nr)
call tendencies(dqcdt,fqc,qc)


call tendencies_f(dtkedt,ftke,tke)


call diffuse_and_step(qrN,qr,fqr,dqrdt,kqr)
call diffuse_and_step(qvN,qv,fqv,dqvdt,kqv)
call diffuse_and_step(rcN,rc,frc,drcdt,krc)
call diffuse_and_step(ccnN,ccn,fccn,dccndt,kccn)
call diffuse_and_step(thN,th,fth,dthdt,kth)
call diffuse_and_step(uN,u,fu,dudt,ku)
call diffuse_and_step(vN,v,fv,dvdt,kv)
call diffuse_and_step(ugN,ug,fug,dugdt,kug)
call diffuse_and_step(ncN,nc,fnc,dncdt,knc)
call diffuse_and_step(vgN,vg,fvg,dvgdt,kvg)
call diffuse_and_step(smokeN,smoke,fsmoke,dsmokedt,ksmoke)
call diffuse_and_step(nrN,nr,fnr,dnrdt,knr)
call diffuse_and_step(qcN,qc,fqc,dqcdt,kqc)