Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 8 additions & 2 deletions source/fortran/pfcoil_variables.f90
Original file line number Diff line number Diff line change
Expand Up @@ -419,7 +419,10 @@ subroutine init_pfcoil_variables
cohbop = 0.0D0
coheof = 1.85D7
cpt = 0.0D0
cptdin = 4.0D4
cptdin = (/4.0D4, 4.0D4, 4.0D4, &
Copy link
Copy Markdown
Collaborator

Choose a reason for hiding this comment

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

Do the number of cpt values in the default match that for the number of PF coils and their group assignment?

Copy link
Copy Markdown
Collaborator

Choose a reason for hiding this comment

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

Had a call and @j-a-foster explained the situation. The number of cpt values match that of the total number of coils

4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, &
4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, &
4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4/)
curpfb = 0.0D0
curpff = 0.0D0
curpfs = 0.0D0
Expand Down Expand Up @@ -458,7 +461,10 @@ subroutine init_pfcoil_variables
ra = 0.0D0
rb = 0.0D0
ric = 0.0D0
rjconpf = 3.0D7
rjconpf = (/3.0D7, 3.0D7, 3.0D7, &
3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, &
3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, &
3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7/)
rjohc = 0.0D0
rjohc0 = 0.0D0
rjpfalw = 0.0D0
Expand Down