Skip to content

Commit

Permalink
Removes calls to removed variables
Browse files Browse the repository at this point in the history
  • Loading branch information
holm10 committed Jan 3, 2024
1 parent 625fc5d commit 345cb32
Showing 1 changed file with 0 additions and 12 deletions.
12 changes: 0 additions & 12 deletions bbb/odesetup.m
Original file line number Diff line number Diff line change
Expand Up @@ -204,13 +204,6 @@ call xerrab("")
endif
enddo

c ... Check attempt to use deprecated variables fchemywi and fchemywo
if (fchemywi .ne. 1. .or. fchemywo .ne. 1.) then
call remark('**Input error: change fchemywi --> fchemygwi(igsp)
. and fchemywo --> fchemygwo(igsp)')
call xerrab("")
endif

c ... Check consistency of cngmom; should be zero if inertial neutrals
if (isupgon(1).eq. 1 .and. cngmom(1).ne.0) then
call remark('*** WARNING, likely Error: cngmom=1, isupgon=1')
Expand Down Expand Up @@ -264,11 +257,6 @@ call remark('*** ERROR: use cgengpl, not cgpl for neut eng loss')
call remark('*** Warning: yinc=2 recommended when isphion=1')
endif

c ... Check if tfcx or tfcy set in input file
if ((tfcx>1.e-10 .or. tfcy>1.e-10) .and. iprt_tfcx_warn==1) then
call remark('*** WARNING: tfcx,y not active; see tgas instead')
iprt_tfcx_warn = 0
endif
c ... Check if isnfmiy=1 when geometry is snowflake > SF15
if (geometry=="snowflake45" .or. geometry=="snowflake75" .or.
. geometry=="snowflake105" .or. geometry=="snowflake135" .or.
Expand Down

0 comments on commit 345cb32

Please sign in to comment.