cal_cfl_time_step Subroutine

public subroutine cal_cfl_time_step(dx, kx, dt, dt_, nt)

计算满足 CFL(Courant–Friedrichs–Lewy) 条件的时间积分步长

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=fp),	intent(in)			::	dx(:)	网格分辨率: m
real(kind=fp),	intent(in)			::	kx(:)	扩散系数: m2/s
real(kind=fp),	intent(in)			::	dt	全局迭代步长: s
real(kind=fp),	intent(out)			::	dt_	局部迭代步长: s
integer,	intent(out)			::	nt	迭代多少次