added modules not previously uploaded in nocommon and gray-jintrac branches
This commit is contained in:
parent
2bc9087c91
commit
ad93e83e85
11
src/graydata_anequil.f90
Normal file
11
src/graydata_anequil.f90
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
module graydata_anequil
|
||||||
|
use const_and_precisions, only : r8
|
||||||
|
implicit none
|
||||||
|
|
||||||
|
real(r8), save :: dens0,aln1,aln2
|
||||||
|
real(r8), save :: te0,dte0,alt1,alt2
|
||||||
|
real(r8), save :: rr0,zr0,rpa,rr0m,zr0m,rpam
|
||||||
|
real(r8), save :: b0,q0,qa,alq
|
||||||
|
real(r8), save :: zeffan
|
||||||
|
|
||||||
|
end module graydata_anequil
|
13
src/graydata_flags.f90
Normal file
13
src/graydata_flags.f90
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
module graydata_flags
|
||||||
|
use const_and_precisions, only : r8
|
||||||
|
implicit none
|
||||||
|
|
||||||
|
character*255, save :: filenmeqq,filenmprf,filenmbm
|
||||||
|
real(r8), save :: sspl, dst
|
||||||
|
integer, save :: ibeam,iequil,ixp,iprof
|
||||||
|
integer, save :: iwarm,ilarm,imx,ieccd,ipec,idst
|
||||||
|
integer, save :: igrad,ipass
|
||||||
|
integer, save :: ipsinorm,iscal,icocos
|
||||||
|
integer, save :: nnd,istpr0,istpl0
|
||||||
|
|
||||||
|
end module graydata_flags
|
10
src/graydata_par.f90
Normal file
10
src/graydata_par.f90
Normal file
@ -0,0 +1,10 @@
|
|||||||
|
module graydata_par
|
||||||
|
use const_and_precisions, only : r8
|
||||||
|
implicit none
|
||||||
|
|
||||||
|
real(r8), save :: rwmax,rwallm
|
||||||
|
real(r8), save :: psipol0,chipol0
|
||||||
|
real(r8), save :: factb,factt,factn,psdbnd
|
||||||
|
real(r8), save :: sgnbphi,sgniphi
|
||||||
|
|
||||||
|
end module graydata_par
|
Loading…
Reference in New Issue
Block a user