From ad93e83e85f32a6b4f6945ae9eeda28d4043eb0d Mon Sep 17 00:00:00 2001 From: Daniele Micheletti Date: Wed, 10 Jun 2015 13:22:01 +0000 Subject: [PATCH] added modules not previously uploaded in nocommon and gray-jintrac branches --- src/graydata_anequil.f90 | 11 +++++++++++ src/graydata_flags.f90 | 13 +++++++++++++ src/graydata_par.f90 | 10 ++++++++++ 3 files changed, 34 insertions(+) create mode 100644 src/graydata_anequil.f90 create mode 100644 src/graydata_flags.f90 create mode 100644 src/graydata_par.f90 diff --git a/src/graydata_anequil.f90 b/src/graydata_anequil.f90 new file mode 100644 index 0000000..8a0074c --- /dev/null +++ b/src/graydata_anequil.f90 @@ -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 diff --git a/src/graydata_flags.f90 b/src/graydata_flags.f90 new file mode 100644 index 0000000..dbd2f9d --- /dev/null +++ b/src/graydata_flags.f90 @@ -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 diff --git a/src/graydata_par.f90 b/src/graydata_par.f90 new file mode 100644 index 0000000..0eb2ee7 --- /dev/null +++ b/src/graydata_par.f90 @@ -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