Merge branch 'develop' into release/MAPL-v3

CHANGELOG.md

@@ -64,6 +64,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Changed
 
+- Updated `checkpoint_simulator` to not create and close file if not writing
+
 ### Fixed
 
 ### Removed

benchmarks/io/checkpoint_simulator/README.md

@@ -5,15 +5,15 @@ The code has the following options and needs an ESMF rc file named checkpoint\_b
 - "NX:" the x distribution for each face
 - "NY:" the y distribution for each face
 - "IM\_WORLD:" the cube resolution
-- "LM:" the nubmer of levels
+- "LM:" the number of levels
 - "NUM\_WRITERS:" the number of writing processes either to a single or independent files
 - "NUM\_ARRAYS:" the number of 3D variables to write to the file
 - "CHUNK:" whether to chunk, default true
 - "GATHER\_3D:" gather all levels at once (default is false which means a level at a time is gathered)
 - "SPLIT\_FILE:" default false, if true, each writer writes to and independent file
 - "WRITE\_BARRIER:" default false, add a barrier before each write to for synchronization
 - "DO\_WRITES:" default true, if false skips writing (so just an mpi test at that point)
-- "NTRIAL:" default 1, the number of trials to make writing
+- "NTRIALS:" default 1, the number of trials to make writing
 - "RANDOM\_DATA:" default true, if true will arrays with random data, if false sets the array to the rank of the process
 
-Note that whatever you set NX and NY to the program must be run on 6*NY*NY processors and the number of writers must evenly divide 6*NY
+Note that whatever you set NX and NY to the program must be run on `6*NX*NY` processors and the number of writers must evenly divide `6*NY`

benchmarks/io/checkpoint_simulator/checkpoint_simulator.F90

@@ -676,13 +676,13 @@ program checkpoint_tester
 
       call system_clock(count=start_write)
       call MPI_Barrier(MPI_COMM_WORLD,status)
-      call support%create_file()
+      if (support%do_writes) call support%create_file()
       call MPI_Barrier(MPI_COMM_WORLD,status)
 
       call support%write_file()
       call MPI_Barrier(MPI_COMM_WORLD,status)
 
-      call support%close_file()
+      if (support%do_writes) call support%close_file()
       call MPI_Barrier(MPI_COMM_WORLD,status)
 
       call system_clock(count=end_time)