Skip to content

Slowing down fix - #19

Open
jcwright77 wants to merge 7 commits into
masterfrom
slowing_down_fix
Open

jcwright77 wants to merge 7 commits into
masterfrom
slowing_down_fix

Conversation

@jcwright77

Copy link
Copy Markdown
Contributor

merge fix restoring slowing down species capability.

Added slowing down species to some diagnostic output. Sacraficed species
6 output in places.`
Added slowing down species to some diagnostic output. Sacraficed species
6 output in places.`
Added slowing down species to some diagnostic output. Sacraficed species
6 output in places.`
Comment thread src/SAVE/aorsa2dMain.F
if(myid .eq.0) write(6, *) xnea(i,j), xn1a(i,j),
. xn2a(i,j), xn3a(i,j), xn4a(i,j), xn5a(i,j),
. xn6a(i,j), xna_slo(i,j)
xn1a(i, j) = 1.0e-10

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Where does this exit to afterwards? If the program continues (i.e., exits to outside a for loop it's presently in), perhaps adjust this write statement to say what it is doing, e.g., "Warning - xn1a <= 0, setting to 1e-10" or some such. Or does this just exit the program as a whole?

Comment thread src/SAVE/aorsa2dMain.F
endif


! write(6,*) "slo",qi_slo

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Don't keep commented code.

Comment thread src/aorsa2dMain.F

end if ! eta6 .ne. 0.0

! write(6,*) "sigmah_slow, qi_slo",qi_slo

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

As above.

Comment thread src/aorsa2dMain.F
endif


! write(6,*) "slo",qi_slo

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Again.

Comment thread src/fieldws.f
read(38, 310) (wdoti4avg_int(n), n = 1, nnoderho)
read(38, 310) (wdoti5avg_int(n), n = 1, nnoderho)
read(38, 310) (wdoti6avg_int(n), n = 1, nnoderho)
! read(38, 310) (wdotisavg_int(n), n = 1, nnoderho)

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Again

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

2 participants