fix: add missed & for SHiELD compile issue (#140)

NOAA-GFDL · Aug 5, 2024 · 8dc6eff · 8dc6eff
1 parent c6fdc87
commit 8dc6eff
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))