From 6693c5cc3df30a77038e213fe01db6582ae38d90 Mon Sep 17 00:00:00 2001 From: Marlena Smith Date: Wed, 7 Jun 2023 15:38:04 -0600 Subject: [PATCH 1/3] Adding formatting to the write to obs_seq.final for obs%prev_time, obs%next_time, and obs%cov_group --- assimilation_code/modules/observations/obs_sequence_mod.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/assimilation_code/modules/observations/obs_sequence_mod.f90 b/assimilation_code/modules/observations/obs_sequence_mod.f90 index 2499ca5644..2b4e966b3b 100644 --- a/assimilation_code/modules/observations/obs_sequence_mod.f90 +++ b/assimilation_code/modules/observations/obs_sequence_mod.f90 @@ -2505,7 +2505,7 @@ subroutine write_obs(obs, file_id, num_copies, num_qc) write(file_id) obs%prev_time, obs%next_time, obs%cov_group call write_obs_def(file_id, obs%def, obs%key, 'unformatted') else - write(file_id, *) obs%prev_time, obs%next_time, obs%cov_group + write(file_id, "(I8,A,I8,A,I8)") obs%prev_time, ",", obs%next_time, ",", obs%cov_group call write_obs_def(file_id, obs%def, obs%key) endif From 26494540a3612643d4a4a72799d1c485f8ee31f7 Mon Sep 17 00:00:00 2001 From: Marlena Smith Date: Thu, 8 Jun 2023 10:42:29 -0600 Subject: [PATCH 2/3] Removing commas to match obs_seq.final for intel, gfrortran --- assimilation_code/modules/observations/obs_sequence_mod.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/assimilation_code/modules/observations/obs_sequence_mod.f90 b/assimilation_code/modules/observations/obs_sequence_mod.f90 index 2b4e966b3b..b7305be6cc 100644 --- a/assimilation_code/modules/observations/obs_sequence_mod.f90 +++ b/assimilation_code/modules/observations/obs_sequence_mod.f90 @@ -2505,7 +2505,7 @@ subroutine write_obs(obs, file_id, num_copies, num_qc) write(file_id) obs%prev_time, obs%next_time, obs%cov_group call write_obs_def(file_id, obs%def, obs%key, 'unformatted') else - write(file_id, "(I8,A,I8,A,I8)") obs%prev_time, ",", obs%next_time, ",", obs%cov_group + write(file_id, "(3I8)") obs%prev_time, obs%next_time, obs%cov_group call write_obs_def(file_id, obs%def, obs%key) endif From ff650846e85b722bdfd2fca7fb6a87cadf0a871e Mon Sep 17 00:00:00 2001 From: Marlena Smith Date: Thu, 8 Jun 2023 15:20:29 -0600 Subject: [PATCH 3/3] Adding additional spaces in between integers to match formatting of obs_seq.final with intel and cce --- assimilation_code/modules/observations/obs_sequence_mod.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/assimilation_code/modules/observations/obs_sequence_mod.f90 b/assimilation_code/modules/observations/obs_sequence_mod.f90 index b7305be6cc..1940e46c28 100644 --- a/assimilation_code/modules/observations/obs_sequence_mod.f90 +++ b/assimilation_code/modules/observations/obs_sequence_mod.f90 @@ -2505,7 +2505,7 @@ subroutine write_obs(obs, file_id, num_copies, num_qc) write(file_id) obs%prev_time, obs%next_time, obs%cov_group call write_obs_def(file_id, obs%def, obs%key, 'unformatted') else - write(file_id, "(3I8)") obs%prev_time, obs%next_time, obs%cov_group + write(file_id, "(A,I8,A,I8,A,I8)") " ", obs%prev_time, " ", obs%next_time, " ", obs%cov_group call write_obs_def(file_id, obs%def, obs%key) endif