修改了两处不严谨的地方,gfortran环境下会warning,1:get_non_uniformgrid.f90中,IF判断中IF(SourceLength/GridSize.gt.51)改SourceLength/GridSize为整型SourceGridNum;2:替换旧写法PAUSE语句为READ(*,*)
这个提交包含在:
@@ -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
|
||||
|
||||
在新工单中引用
屏蔽一个用户