本文介绍了一段Fortran代码片段，该片段用于处理洪水单元的输出数据。具体包括条件判断湿单元并进行数据交换的过程。这段代码适用于特定的子程序中。
!! --->name 2020-10-26, output of Flooding cell
WHERE (H1 < 0.0)
flooding_cell = ISWETC
END WHERE
CALL AEXCHANGE(EC,MYID,NPROCS,flooding_cell)
!! <---name
比如，在WET_JUDGE内
你加的这一块内容，应该放在一个subroutine内
否则这一段是游离在subroutine以外的
扫一扫
评论
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
查看更多评论
添加红包
