From 8dc6eff18b67ca9ab83916e2326af797818bf463 Mon Sep 17 00:00:00 2001 From: Lauren Chilutti <60401591+laurenchilutti@users.noreply.github.com> Date: Mon, 5 Aug 2024 10:29:11 -0400 Subject: [PATCH] fix: add missed `&` for SHiELD compile issue (#140) --- SHiELD/coupler_main.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SHiELD/coupler_main.F90 b/SHiELD/coupler_main.F90 index 76a974a9..7819ec85 100644 --- a/SHiELD/coupler_main.F90 +++ b/SHiELD/coupler_main.F90 @@ -324,7 +324,7 @@ subroutine coupler_init !----------------------------------------------------------------------- !----- write time stamps (for start time and end time) ------ - if ( fms_mpp_pe().EQ.fms_mpp_root_pe() ) + if ( fms_mpp_pe().EQ.fms_mpp_root_pe() ) & open(newunit = time_stamp_unit, file='time_stamp.out', status='replace', form='formatted') month = fms_time_manager_month_name(date(2))