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