Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
Gyacomo
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Antoine Cyril David Hoffmann
Gyacomo
Commits
24ace58e
Commit
24ace58e
authored
4 years ago
by
Antoine Cyril David Hoffmann
Browse files
Options
Downloads
Patches
Plain Diff
back to poke initalization
parent
71e00e53
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
src/inital.F90
+45
-29
45 additions, 29 deletions
src/inital.F90
with
45 additions
and
29 deletions
src/inital.F90
+
45
−
29
View file @
24ace58e
SUBROUTINE
inital
USE
basic
USE
model
,
ONLY
:
CO
USE
prec_const
...
...
@@ -39,31 +39,31 @@ SUBROUTINE init_profiles
CALL
RANDOM_SEED
(
PUT
=
iseedarr
)
CALL
set_updatetlevel
(
1
)
DO
ikr
=
ikrs
,
ikre
DO
ikr
=
ikrs
,
ikre
DO
ikz
=
ikzs
,
ikze
DO
ip
=
ips_e
,
ipe_e
DO
ij
=
ijs_e
,
ije_e
CALL
RANDOM_NUMBER
(
noise
)
moments_e
(
ip
,
ij
,
ikr
,
ikz
,
:)
=
initback_moments
+
initnoise_moments
*
(
noise
-0.5_dp
)
!
moments_e( ip,ij, ikr,ikz, :) = initback_moments + initnoise_moments*(noise-0.5_dp)
END
DO
END
DO
DO
ip
=
ips_i
,
ipe_i
DO
ij
=
ijs_i
,
ije_i
CALL
RANDOM_NUMBER
(
noise
)
moments_i
(
ip
,
ij
,
ikr
,
ikz
,
:)
=
initback_moments
+
initnoise_moments
*
(
noise
-0.5_dp
)
!
moments_i( ip,ij, ikr,ikz, :) = initback_moments + initnoise_moments*(noise-0.5_dp)
END
DO
END
DO
! Poke initialization on only Ne00 and Ni00
!
moments_e( 1,1, ikr,ikz, :) = initback_moments + initnoise_moments*(noise-0.5_dp)
!
moments_i( 1,1, ikr,ikz, :) = initback_moments + initnoise_moments*(noise-0.5_dp)
moments_e
(
1
,
1
,
ikr
,
ikz
,
:)
=
initback_moments
+
initnoise_moments
*
(
noise
-0.5_dp
)
moments_i
(
1
,
1
,
ikr
,
ikz
,
:)
=
initback_moments
+
initnoise_moments
*
(
noise
-0.5_dp
)
END
DO
END
DO
CALL
poisson
! To set phi
END
SUBROUTINE
init_profiles
...
...
@@ -77,42 +77,58 @@ SUBROUTINE load_FC_mat ! Works only for a partiular file for now with P,J <= 15,
USE
futils
,
ONLY
:
openf
,
getarr
,
closef
IMPLICIT
NONE
INTEGER
::
fid
,
ip
,
ij
,
ip2
,
ij2
INTEGER
::
ip
,
ij
,
ip2
,
ij2
INTEGER
::
fid1
,
fid2
,
fid3
,
fid4
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!! Electron matrices !!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
WRITE
(
*
,
*
)
'Load self electron collision matrix..'
! get the self electron colision matrix
CALL
openf
(
selfmat_file
,
fid
,
'r'
,
'D'
);
CALL
getarr
(
fid
,
'/Caapj/Ceepj'
,
Ceepj
)
! get array (moli format)
CALL
closef
(
fid
)
CALL
openf
(
selfmat_file
,
fid
1
,
'r'
,
'D'
);
CALL
getarr
(
fid
1
,
'/Caapj/Ceepj'
,
Ceepj
)
! get array (moli format)
CALL
closef
(
fid
1
)
! get the Test and Back field electron ion collision matrix
WRITE
(
*
,
*
)
'Load test + field electron collision matrix..'
CALL
openf
(
eimat_file
,
fid
,
'r'
,
'D'
);
CALL
getarr
(
fid
,
'/Ceipj/CeipjT'
,
CeipjT
)
CALL
getarr
(
fid
,
'/Ceipj/CeipjF'
,
CeipjF
)
CALL
closef
(
fid
)
CALL
openf
(
eimat_file
,
fid2
,
'r'
,
'D'
);
CALL
getarr
(
fid2
,
'/Ceipj/CeipjT'
,
CeipjT
)
CALL
getarr
(
fid2
,
'/Ceipj/CeipjF'
,
CeipjF
)
CALL
closef
(
fid2
)
write
(
25
,
*
)
eimat_file
write
(
25
,
*
)
'Ceepj(3,5)'
write
(
25
,
*
)
Ceepj
(
3
,
5
)
write
(
25
,
*
)
'CeipjT(12,12)'
write
(
25
,
*
)
CeipjT
(
12
,
12
)
write
(
25
,
*
)
'CeipjF(12,2)'
write
(
25
,
*
)
CeipjF
(
12
,
2
)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!! Ion matrices !!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
WRITE
(
*
,
*
)
'Load self ion collision matrix..'
! get the self electron colision matrix
CALL
openf
(
selfmat_file
,
fid
,
'r'
,
'D'
);
CALL
openf
(
selfmat_file
,
fid
3
,
'r'
,
'D'
);
IF
(
(
pmaxe
.EQ.
pmaxi
)
.AND.
(
jmaxe
.EQ.
jmaxi
)
)
THEN
! if same degrees ion and electron matrices are alike so load Ceepj
CALL
getarr
(
fid
,
'/Caapj/Ceepj'
,
Ciipj
)
! get array (moli format)
CALL
getarr
(
fid
3
,
'/Caapj/Ceepj'
,
Ciipj
)
! get array (moli format)
ELSE
CALL
getarr
(
fid
,
'/Caapj/Ciipj'
,
Ciipj
)
! get array (moli format)
CALL
getarr
(
fid
3
,
'/Caapj/Ciipj'
,
Ciipj
)
! get array (moli format)
ENDIF
CALL
closef
(
fid
)
CALL
closef
(
fid
3
)
! get the Test and Back field ion electron collision matrix
WRITE
(
*
,
*
)
'Load test + field ion collision matrix..'
CALL
openf
(
iemat_file
,
fid
,
'r'
,
'D'
);
CALL
getarr
(
fid
,
'/Ciepj/CiepjT'
,
CiepjT
)
CALL
getarr
(
fid
,
'/Ciepj/CiepjF'
,
CiepjF
)
CALL
closef
(
fid
)
END
SUBROUTINE
load_FC_mat
\ No newline at end of file
CALL
openf
(
iemat_file
,
fid4
,
'r'
,
'D'
);
CALL
getarr
(
fid4
,
'/Ciepj/CiepjT'
,
CiepjT
)
CALL
getarr
(
fid4
,
'/Ciepj/CiepjF'
,
CiepjF
)
CALL
closef
(
fid4
)
write
(
25
,
*
)
iemat_file
write
(
25
,
*
)
'Ciipj(3,5)'
write
(
25
,
*
)
Ciipj
(
3
,
5
)
write
(
25
,
*
)
'CiepjT(10,10)'
write
(
25
,
*
)
CiepjT
(
10
,
10
)
write
(
25
,
*
)
'CiepjF(10,2)'
write
(
25
,
*
)
CiepjF
(
10
,
2
)
END
SUBROUTINE
load_FC_mat
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment