added modules not previously uploaded in nocommon and gray-jintrac branches

This commit is contained in:
Daniele Micheletti 2015-06-10 13:22:01 +00:00
parent 2bc9087c91
commit ad93e83e85
3 changed files with 34 additions and 0 deletions

11
src/graydata_anequil.f90 Normal file
View 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
View 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
View 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