Fortran报错error #5508该怎么解决？

Fortran报错error #5508: Declaration of routine 'DEPTH1' conflicts with a previous declaration该怎么解决？

之前用的fortran10编译，除了这个问题检查了很多次，试了很多办法也没有搜索到之前有定义过DEPTH1，改变量名也没有用，百度有说升级到fortran11可以解决这个问题，后来换了Fortran11也还是不行，麻烦各位大神帮忙指点一下！
代码如下：

抱歉没有钱不能悬赏……感谢各位！