diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-13 23:44:41 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-13 23:44:41 -0400 |
| commit | d4c53d502ac59cc86351b5be97ccf25cceeaf087 (patch) | |
| tree | 6c87b36943bfc838965ebb2fdcd1ff400ed0d3d4 /fortran | |
| parent | d9f181909552afc6fb25fcf4b9d8f890cd5c05b4 (diff) | |
| download | Nresonances-d4c53d502ac59cc86351b5be97ccf25cceeaf087.tar.gz Nresonances-d4c53d502ac59cc86351b5be97ccf25cceeaf087.zip | |
Adjust grid size
Close to optimal grid size for this problem. Increasing the number of
points by 10 in both directions almost does not change output
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index e16bd89..722850e 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -30,7 +30,7 @@ program FourLevelPulseProp_v3_Double parameter (nmat=3,npts=100) !matrix size, number of detuning points in dispersion curve !tpts is the number of temporal points in the cell !zpts is the number of z output slices - 1 - parameter (tpts=200,zpts=10) ! evrything fails with tpts = 100 + parameter (tpts=400,zpts=100) ! evrything fails with tpts = 100 parameter (Nframemax=2000000) parameter (NWrite=1) !number of frames to actually write integer i,j,k,m,n |