修改了两处不严谨的地方,gfortran环境下会warning,1:get_non_uniformgrid.f90中,IF判断中IF(SourceLength/GridSize.gt.51)改SourceLength/GridSize为整型SourceGridNum;2:替换旧写法PAUSE语句为READ(*,*)

这个提交包含在:
2026-08-18 18:48:15 +08:00
父节点 d855afd251
当前提交 4c4b501612
修改 2 个文件,包含 17 行新增17 行删除
+1 -1
查看文件
@@ -62,7 +62,7 @@ SUBROUTINE TIME_SERIOUS
WRITE(10005,*)'The number of iteration steps exceeds the range given in the input.dat, please change it. now the Nstop value is determined by Max_off_time.'
print*,'The number of iteration steps exceeds the range given in the input.dat, please change it. now the Nstop value is determined by Max_off_time.'
print*,'I give you a pause here, you should decide to continue or to quit'
pause
READ(*,*)
Nstop=Nstop_temp
ENDIF
RETURN