OpenMCTDHB v2.3
|
Contains variable declarations and subroutines to write external potentials with the additional program create_V_ext. Add whatever external potential you like. More...
Functions/Subroutines | |
subroutine | write_potentialToFile (NDX, NDY, NDZ, gridx, gridy, gridz, V_ext, filename) |
This routine writes an external potential V_ext to the file 'filename'. | |
subroutine | get_bjjLetterPotential (NDX, NDY, NDZ, gridx, gridy, gridz, Dims, V_ext) |
This routine computes the 1D external trapping potential (bosonic Josephson Junction) that was used in the work of Sakmann et al. PRL. 103, 220601 (2009) | |
subroutine | get_harmonicPotential (NDX, NDY, NDZ, gridx, gridy, gridz, x0, y0, z0, w_x, w_y, w_z, V_ext) |
this subroutine computes a harmonic external potential |
Contains variable declarations and subroutines to write external potentials with the additional program create_V_ext. Add whatever external potential you like.
subroutine modulecreate_V_ext::get_bjjLetterPotential | ( | INTEGER,intent(in) | NDX, |
INTEGER,intent(in) | NDY, | ||
INTEGER,intent(in) | NDZ, | ||
REAL*8,dimension(ndx),intent(in) | gridx, | ||
REAL*8,dimension(ndy),intent(in) | gridy, | ||
REAL*8,dimension(ndz),intent(in) | gridz, | ||
INTEGER,intent(in) | Dims, | ||
REAL*8,dimension(ndx*ndy*ndz),intent(out) | V_ext | ||
) |
This routine computes the 1D external trapping potential (bosonic Josephson Junction) that was used in the work of Sakmann et al. PRL. 103, 220601 (2009)
Definition at line 75 of file modulecreate_V_ext.F90.
subroutine modulecreate_V_ext::get_harmonicPotential | ( | INTEGER,intent(in) | NDX, |
INTEGER,intent(in) | NDY, | ||
INTEGER,intent(in) | NDZ, | ||
REAL*8,dimension(ndx),intent(in) | gridx, | ||
REAL*8,dimension(ndy),intent(in) | gridy, | ||
REAL*8,dimension(ndz),intent(in) | gridz, | ||
REAL*8,intent(in) | x0, | ||
REAL*8,intent(in) | y0, | ||
REAL*8,intent(in) | z0, | ||
REAL*8,intent(in) | w_x, | ||
REAL*8,intent(in) | w_y, | ||
REAL*8,intent(in) | w_z, | ||
REAL*8,dimension(ndx*ndy*ndz),intent(out) | V_ext | ||
) |
this subroutine computes a harmonic external potential
V_ext(x,y,z) = 1/2 ( w_x**2 (x-x0)**2 + w_y**2 (y-y0)**2 + w_z**2 (z-z0)**2 )
Definition at line 127 of file modulecreate_V_ext.F90.
subroutine modulecreate_V_ext::write_potentialToFile | ( | INTEGER,intent(in) | NDX, |
INTEGER,intent(in) | NDY, | ||
INTEGER,intent(in) | NDZ, | ||
REAL*8,dimension(ndx),intent(in) | gridx, | ||
REAL*8,dimension(ndy),intent(in) | gridy, | ||
REAL*8,dimension(ndz),intent(in) | gridz, | ||
REAL*8,dimension(ndx*ndy*ndz),intent(in) | V_ext, | ||
CHARACTER(150),intent(in) | filename | ||
) |
This routine writes an external potential V_ext to the file 'filename'.
Definition at line 23 of file modulecreate_V_ext.F90.