adv_by_ppm Subroutine

public subroutine adv_by_ppm(dt, dx, n, u, c, increment, volume)

基于PPM方法实现的一维平流函数

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dt

时间间隔: s
real, intent(in) :: dx

网格分辨率: m
integer, intent(in) :: n

网格数: 2~n-1 参与平流计算
real, intent(in) :: u(n)

风速: m/s，网格可以比n少一个
real, intent(inout) :: c(n)

网格浓度: umol/m3，包含两个边界浓度
real, intent(out) :: increment(n)

浓度变化: umol/m3，只有2~n-1有效
real, intent(in), optional :: volume(n)

每个网格的体积校正因子: dxdydz;