Flush the atm.log file at the end of init sequence

[bartgol]

Avoids confusion when the code hangs due to initialization issues: if atm.log is there, and filled, we can be sure EAMxx::init completed.

[oksanaguba]

add homme log flushing too?

[bartgol]

That's definitely important, I just don't know (yet?) how do do it. The homme log is created in fortran, and I am not familiar with the flushing mechanisms of fortran. As far as I can tell, there is no direct way to flush a file in Fortran, short of closing it and reopening it. But I need to dig a bit more.

[ambrad]

This came up while I was helping someone. To address the homme_atm.log case, I think I'm going to try inserting call flush(iulog) right before this line:

E3SM/components/homme/src/share/parallel_mod.F90

Line 276 in ae51494

character*(*) string

[bartgol]

I think this may only work if the rank issuing the abort is the same rank holding the iulog handler (I think only masterproc opens the log file).

Edit: nope, masterproc creates the file, but all ranks open it, so it should be good.

[ambrad]

See #6646.

[ambrad]

This can't fix every problem. EAM example: rank > root calls abortmp. iulog is attached to e3sm.log, and the rank has no knowledge of atm.log. So it flushes e3sm.log and then calls MPI_Abort. Other ranks get shut down without flushing, so the root rank won't flush atm.log.

This should fix the typical case, where rank = root does input checking.

It should also handle the case where rank k prints to iulog, then calls abortmp. Whatever log it printed to (atm or e3sm) will get flushed, showing the reason abortmp was called.

To cover every case, I think we need to introduce MPI error handlers (https://docs.open-mpi.org/en/main/man-openmpi/man3/MPI_Comm_create_errhandler.3.html) so ranks can clean things up before exiting.

[ambrad]

For EAMxx's atm.log, I think flushing it in the catch block that was recently modified to call MPI_Abort would do the trick for most cases (any case that throws an exception that eventually leads to the top-level catch block).

Another case is EAMxx's homme_atm.log when Hxx throws an exception. Not sure whether the AD has a handle to this log. If it does, it could be flushed in the top-level catch block, too.

[bartgol]

I don't think the AD has a handle to that log, unfortunately. However, it should already get flushed. Here's what happens if the catch block executes:

• the catch block is entered
• the EAMxx singleton is cleaned up
• when cleaning up the singleton, the AD is destroyed
• when AD is destroyed, it calls finalize
• AD::finalize finalizes (and destroys) all atm procs
• HommeDynamics::finalize calls prim_finalize_f90
• prim_finalize_f90 closes the log via close_homme_log

But close_homme_log does NOT call "flush" on it. Maybe that's the fix.

Edit: no, calling close(iulog) should already flush the file. It must be that when the code crashes, we don't get to that call. Perhaps a second exception is thrown while the code in the catch section is run?