Browse Source

snap lowest layer depth to earth radius if close

master
Sebastian Heimann 1 year ago
parent
commit
46b1b21bbd
1 changed files with 5 additions and 0 deletions
  1. +5
    -0
      src/qpgetinp.f

+ 5
- 0
src/qpgetinp.f View File

@ -619,6 +619,11 @@ c
endif
enddo
c
if(abs(dp0(l)-rratmos)/rratmos.lt.1.0d-6)then
write(*,*) ' Snapping lowest layer depth to earth model radius.'
dp0(l)=rratmos
endif
if(dp0(l).gt.rratmos)then
stop ' Error in qpgetinp: earth radius larger than pre-defined!'
else if(dp0(l).lt.rratmos)then


Loading…
Cancel
Save