Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

add root pe number to diag_field_log filename #1497

Merged
merged 1 commit into from
Jun 24, 2024
+2 −1
Merged

add root pe number to diag_field_log filename #1497

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Loading
Loading status checks…
append root pe number to diag_field_log.out
Ryan Mulhall authored and Ryan Mulhall committed Apr 25, 2024
commit cdcdb885922b764b9b764a0190a8b90472e1cee9
3 changes: 2 additions & 1 deletion diag_manager/diag_manager.F90
View file
Original file line number Diff line number Diff line change
@@ -240,6 +240,7 @@ MODULE diag_manager_mod
USE fms_diag_outfield_mod, ONLY: fmsDiagOutfieldIndex_type, fmsDiagOutfield_type
USE fms_diag_fieldbuff_update_mod, ONLY: fieldbuff_update, fieldbuff_copy_missvals, &
& fieldbuff_copy_fieldvals
USE fms_string_utils_mod, ONLY: string

USE netcdf, ONLY: NF90_INT, NF90_FLOAT, NF90_CHAR

@@ -3926,7 +3927,7 @@ SUBROUTINE diag_manager_init(diag_model_subset, time_init, err_msg)

! open diag field log file
IF ( do_diag_field_log.AND.mpp_pe().EQ.mpp_root_pe() ) THEN
open(newunit=diag_log_unit, file='diag_field_log.out', action='WRITE')
open(newunit=diag_log_unit, file='diag_field_log.out.'//string(mpp_pe()), action='WRITE')
WRITE (diag_log_unit,'(777a)') &
& 'Module', FIELD_LOG_SEPARATOR, 'Field', FIELD_LOG_SEPARATOR, &
& 'Long Name', FIELD_LOG_SEPARATOR, 'Units', FIELD_LOG_SEPARATOR, &