From b23128ba141299bd29df3f1e5ae1f1c31442246d Mon Sep 17 00:00:00 2001 From: Gautam Bisht Date: Thu, 1 Aug 2019 13:41:01 -0700 Subject: [PATCH] Minor fix to ELM for IBM compiler Removes a comma after write statement Fixes #2976 Fixes #2985 [BFB] --- .../external_models/emi/src/emi_data_definition/EMI_DataMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/clm/src/external_models/emi/src/emi_data_definition/EMI_DataMod.F90 b/components/clm/src/external_models/emi/src/emi_data_definition/EMI_DataMod.F90 index 81914444f744..790f0f108be1 100644 --- a/components/clm/src/external_models/emi/src/emi_data_definition/EMI_DataMod.F90 +++ b/components/clm/src/external_models/emi/src/emi_data_definition/EMI_DataMod.F90 @@ -882,7 +882,7 @@ subroutine EMIDPrintInfo(this, rank) integer, optional :: rank if (present(rank)) then - write(iulog,*),rank,') ' // trim(this%name) + write(iulog,*)rank,') ' // trim(this%name) else write(iulog,*)trim(this%name) endif