summaryrefslogtreecommitdiff
path: root/fortran/navy_four_levels/FourLevelPulseProp_Double.f95
Commit message (Collapse)AuthorAgeFilesLines
* Make dt = dzEugeniy Mikhailov2011-07-161-5/+5
| | | | | | | * as Simon discovered dt must equal to dz (in normilized units) then some term cancels in derivatives calculations * as result tpts is not a free parameter anymore but locked to length of the cell and number of zpts
* t and z limits are given independentlyEugeniy Mikhailov2011-07-141-0/+2
| | | | | * something fishy with navy code, I decrease length by factor of 2 and delays for vacuum field is exactly the same
* Canonic EIT - control field (3) is offEugeniy Mikhailov2011-07-131-1/+1
|
* Adjust grid sizeEugeniy Mikhailov2011-07-131-1/+1
| | | | | Close to optimal grid size for this problem. Increasing the number of points by 10 in both directions almost does not change output
* Output of vacuum pulse dataEugeniy Mikhailov2011-07-131-3/+2
|
* Grid set in advance independent of pulse time and widthEugeniy Mikhailov2011-07-131-7/+12
|
* Code proper indent and beatificationEugeniy Mikhailov2011-07-131-63/+46
|
* Remove more of unused codeEugeniy Mikhailov2011-07-131-3/+0
|
* One more loop finished with 'end do'Eugeniy Mikhailov2011-07-131-24/+24
|
* Indent file to improve readabilityEugeniy Mikhailov2011-07-131-70/+71
|
* Do loop switched to F90 format: they finished with 'end do'Eugeniy Mikhailov2011-07-131-6/+6
| | | | * this improves readability
* Remove a lot of unused codeEugeniy Mikhailov2011-07-131-68/+8
|
* Unused subroutines removedEugeniy Mikhailov2011-07-121-70/+0
|
* Remove 1st space from the formated outputEugeniy Mikhailov2011-07-121-1/+1
| | | | * I see no need for this space
* Add the output of the Gaussian peak position in timeEugeniy Mikhailov2011-07-121-0/+1
|
* Calculate canonic EIT caseEugeniy Mikhailov2011-07-121-7/+7
| | | | | | | | * field 1 is weak and has Gaussian temporal profile * field 2 is strong * field 3 is off * vacuum propagated field start similar to field 1 * cell length enlarged to see pulse delay
* Output format changed. Output |Om| instead of amplitudeEugeniy Mikhailov2011-07-121-1/+1
| | | | | * this take care of complex part which seems to be disregarded with current format for write statement
* Remove unused subroutinesEugeniy Mikhailov2011-07-121-124/+0
|
* Permissions fix: sources do not need executable flagEugeniy Mikhailov2011-07-121-0/+0
|
* Replaced FourLevelPulseProp_v*_Double.f95 with FourLevelPulseProp_Double.f95 ↵Simon Rochester2011-07-121-0/+708
and edited makefile accordingly. Added t variable to the output file Movie4level.dat for plotting purposes.