!! --->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以外的
!! --->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以外的