friction 串并行对照

输入范围

dyn3d\friction.F
dyn3dpar\friction_p.F

Mars 运行参与度:条件经过。当动力配置启用摩擦或阻尼分支时经过。

例程定位

friction 对风场施加摩擦/阻尼倾向。源码通过 getin("friction_type") 读取摩擦类型,并对不支持的配置调用 abort_gcm

对照表

串行 friction.F 并行 friction_p.F
行数 136 202
配置读取 friction_type friction_type
异常处理 abort_gcm abort_gcm
数组范围 全局 子域

核心流程

  1. 读取或缓存 friction_type
  2. 根据类型选择摩擦公式或禁用路径。
  3. 对风场 tendency 或状态施加阻尼。
  4. 遇到未知类型直接 abort,避免静默运行错误物理。

复现要点

待确认