OpenMCTDHB: moduleinputvariables.F90 Source File

Go to the documentation of this file.
00001 ! vim:fdm=marker:
00002 
00003 !---------------------------------------------------------------------------
00014 
00015 MODULE moduleinputvariables
00016 IMPLICIT NONE
00017 SAVE
00018 
00019 !SystemParameters
00020 REAL*8  :: lambda0             =       0.0000D0
00021 INTEGER :: NPar                =       100
00022 INTEGER :: MOrb                =       2
00023 INTEGER :: Dims                =       1
00024 LOGICAL :: useIMEST            =       .FALSE.
00025 NAMELIST /SystemParameters/ lambda0 , NPar, MOrb, Dims, useIMEST
00026 
00027 !IMESTParameters
00028 REAL*8  :: imestParameter1     =        1.d0
00029 NAMELIST /IMESTParameters/ imestParameter1
00030 
00031 !GridParameters
00032 INTEGER :: NDX                  =       251
00033 INTEGER :: NDY                  =       1
00034 INTEGER :: NDZ                  =       1
00035 REAL*8  :: xi                   =      -10.d0
00036 REAL*8  :: xf                   =       10.d0
00037 REAL*8  :: yi                   =        0.d0
00038 REAL*8  :: yf                   =        0.d0
00039 REAL*8  :: zi                   =        0.d0
00040 REAL*8  :: zf                   =        0.d0
00041 NAMELIST /GridParameters/ xi,xf,yi,yf,zi,zf,NDX,NDY,NDZ
00042 
00043 !PrintParameters
00044 REAL*8  :: tinyStep             =       0.1d0
00045 REAL*8  :: printStep            =       5.d0
00046 REAL*8  :: printAllStep         =       100.d0
00047 INTEGER :: printCorrelationFuncs      =       0
00048 !PrintParameters for 2D analysis routines.
00049 LOGICAL :: REALSPACE2D = .FALSE.
00050 LOGICAL :: MOMSPACE2D = .FALSE.
00051 REAL*8  :: x1slice    = 0.d0
00052 REAL*8  :: x2slice    = 0.d0
00053 REAL*8  :: y1slice    = 0.d0
00054 REAL*8  :: y2slice    = 0.d0
00055 LOGICAL :: x1const    = .TRUE.
00056 LOGICAL :: y1const    = .TRUE.
00057 LOGICAL :: x2const    = .FALSE.
00058 LOGICAL :: y2const    = .FALSE.
00059 LOGICAL :: Pnot       = .FALSE.
00060 REAL*8  :: xstart     = -10.d0
00061 REAL*8  :: xstop     = -10.d0
00062 
00063 
00064 NAMELIST /PrintParameters/ tinyStep, printStep, printAllStep, printCorrelationFuncs,&
00065                            MOMSPACE2D,REALSPACE2D,&
00066                            x1const,x1slice,&
00067                            y1const,y1slice,&
00068                            x2const,x2slice,&
00069                            y2const,y2slice,&
00070                            Pnot,xstart,xstop
00071                              
00072 !RunParameters
00073 REAL*8  :: AbsTime              =       0.0d0
00074 REAL*8  :: maxTime              =       100.d0
00075 REAL*8  :: TolError             =       1.d-06
00076 LOGICAL :: restart              =       .TRUE.
00077 LOGICAL :: Relax                =       .FALSE. 
00078 LOGICAL :: readPotential        =       .FALSE. 
00079 INTEGER :: propDirection        =       1 
00080 character(55)  :: tag           =       ''   
00081 NAMELIST /RunParameters/ AbsTime, maxTime, TolError,restart,Relax,readPotential, propDirection,tag
00082 
00083 
00084 END MODULE moduleinputvariables
00085