diff options
Diffstat (limited to 'fortran/navy_four_levels')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index eaa22ef..7b4906a 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -206,6 +206,7 @@ ! Set up initial pulse. ! tshift=2*tp + write (*,*) 'peak center at the cell begining i.e. tshift = ', tshift tmax=Lcell !Length of time to pass cell (no c because we're dimensionless) dt=tmax/tpts dz=dt !(no c because we're dimensionless) |