diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-14 00:02:54 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-14 00:02:54 -0400 |
| commit | 0a3a963aa07cb79548c13aa1ff5520a89dd040e8 (patch) | |
| tree | 29bd5fc4080b1530aca55d7377ca31ab1abaf222 | |
| parent | 2f11757fdf7ec5822fc2257e2fde9895933e07b1 (diff) | |
| download | Nresonances-0a3a963aa07cb79548c13aa1ff5520a89dd040e8.tar.gz Nresonances-0a3a963aa07cb79548c13aa1ff5520a89dd040e8.zip | |
t and z limits are given independently
* something fishy with navy code, I decrease length by factor of 2 and
delays for vacuum field is exactly the same
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 9917500..5ccbd80 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -148,6 +148,7 @@ program FourLevelPulseProp_v3_Double ! Length of cell in m Lcell=100 Lcell=beta*Lcell/c !Now dimensionless + Lcell=6 t_start=secnds(0.E0) write (*,*)'t_start = ',t_start ! @@ -156,6 +157,7 @@ program FourLevelPulseProp_v3_Double tshift=2*tp write (*,*) 'peak center at the cell begining i.e. tshift = ', tshift tmax=Lcell*20 !Length of time to pass cell (no c because we're dimensionless) + tmax=130.0 write(*,*) 'tmax = ', tmax write(*,*) 'Lcell = ', Lcell dt=tmax/(tpts-1) |