Skip to content

Commit 08a828b

Browse files
committed
debug: do not care 1d settings when doadv3d
1 parent fa3646e commit 08a828b

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

setparm.f90

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -311,9 +311,12 @@ subroutine setparm
311311
write(*,*) '********************************************************'
312312
write(*,*) ' Unsupported setup in large-scale vertical advection'
313313
write(*,*) ' Please confirm subsidence 1d or 3d fields.'
314+
write(*,*) ' Setting both doadvinic and doadvbg to false.'
314315
write(*,*) '********************************************************'
315316
end if
316-
call task_abort()
317+
!call task_abort()
318+
doadvinic = .false.
319+
doadvbg = .false.
317320
end if
318321
else if (doadvinic.and.doadvbg) then
319322
if (masterproc) then

0 commit comments

Comments
 (0)