Minor fix to ELM for IBM compiler

Removes a comma after write statement Fixes #2976 Fixes #2985 [BFB]
E3SM-Project · Aug 12, 2019 · 960ee77 · 960ee77
1 parent aa8ec0b
commit 960ee77
Showing 1 changed file with 1 addition and 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
@@ -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