Fix GNU error with character array constructors

GEOS-ESM · Mar 17, 2022 · 1b30b53 · 1b30b53
1 parent 07f6357
commit 1b30b53
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/GEOSogcm_GridComp/GEOS_OgcmGridComp.F90 b/GEOSogcm_GridComp/GEOS_OgcmGridComp.F90
@@ -783,9 +783,9 @@ subroutine SetServices ( GC, RC )
   if (ocean_extData) then
     if (DO_DATASEAONLY==1) then ! fake-ocean (i.e., data ocean)
       if (ocean_sssData) then
-        call MAPL_TerminateImport    ( GC, ["DATA_SST","DATA_SSS", "DATA_ICE","DATA_KPAR"], [ocean,ocean,seaice,orad], RC=STATUS  )
+        call MAPL_TerminateImport    ( GC, ["DATA_SST ","DATA_SSS ", "DATA_ICE ","DATA_KPAR"], [ocean,ocean,seaice,orad], RC=STATUS  )
       else ! no (None) data_sss
-        call MAPL_TerminateImport    ( GC, ["DATA_SST",            "DATA_ICE","DATA_KPAR"], [ocean,      seaice,orad], RC=STATUS  )
+        call MAPL_TerminateImport    ( GC, ["DATA_SST ",             "DATA_ICE ","DATA_KPAR"], [ocean,      seaice,orad], RC=STATUS  )
       endif
     else ! we get real ocean and sea ice in case of coupled model, and only data KPAR is used.
       call MAPL_TerminateImport    ( GC, ["DATA_KPAR"], [orad], RC=STATUS  ) ! need to terminate others as well: cosz, discharge, frocean, pice, taux, tauy