fixed character array syntax for GEOSIT_defs (LDAS_Forcing.F90)

GEOS-ESM · Dec 5, 2023 · a8227f1 · a8227f1
1 parent 51b900d
commit a8227f1
Showing 1 changed file with 18 additions and 15 deletions.
diff --git a/src/Components/GEOSldas_GridComp/GEOSmetforce_GridComp/LDAS_Forcing.F90 b/src/Components/GEOSldas_GridComp/GEOSmetforce_GridComp/LDAS_Forcing.F90
@@ -3250,21 +3250,24 @@ subroutine get_GEOS( date_time, force_dtstep, met_path, met_tag,             &
     ! define GEOS-IT file specs 
     !
     ! same as G5DAS except for file tag (column 3)
-
-    GEOSIT_defs = G5DAS_defs
-
-    GEOSIT_defs( 1,3)=[character(len=40):: 'lfo_tavg_1hr_glo_L576x361_slv']
-    GEOSIT_defs( 2,3)=[character(len=40):: 'lfo_tavg_1hr_glo_L576x361_slv']
-    GEOSIT_defs( 3,3)=[character(len=40):: 'lfo_tavg_1hr_glo_L576x361_slv']
-    GEOSIT_defs( 4,3)=[character(len=40):: 'lfo_tavg_1hr_glo_L576x361_slv']
-    GEOSIT_defs( 5,3)=[character(len=40):: 'lfo_tavg_1hr_glo_L576x361_slv']
-    GEOSIT_defs( 6,3)=[character(len=40):: 'lfo_tavg_1hr_glo_L576x361_slv']
-    GEOSIT_defs( 7,3)=[character(len=40):: 'lfo_tavg_1hr_glo_L576x361_slv']
-    GEOSIT_defs( 8,3)=[character(len=40):: 'lfo_inst_1hr_glo_L576x361_slv']
-    GEOSIT_defs( 9,3)=[character(len=40):: 'lfo_inst_1hr_glo_L576x361_slv']
-    GEOSIT_defs(10,3)=[character(len=40):: 'lfo_inst_1hr_glo_L576x361_slv']
-    GEOSIT_defs(11,3)=[character(len=40):: 'lfo_inst_1hr_glo_L576x361_slv']
-    GEOSIT_defs(12,3)=[character(len=40):: 'lfo_inst_1hr_glo_L576x361_slv']
+    !
+    ! GEOSIT character(40):
+    !
+    !                             1         2         3         4
+    !                    1234567890123456789012345678901234567890     
+
+    GEOSIT_defs( 1,3) = 'lfo_tavg_1hr_glo_L576x361_slv           '
+    GEOSIT_defs( 2,3) = 'lfo_tavg_1hr_glo_L576x361_slv           '
+    GEOSIT_defs( 3,3) = 'lfo_tavg_1hr_glo_L576x361_slv           '
+    GEOSIT_defs( 4,3) = 'lfo_tavg_1hr_glo_L576x361_slv           '
+    GEOSIT_defs( 5,3) = 'lfo_tavg_1hr_glo_L576x361_slv           '
+    GEOSIT_defs( 6,3) = 'lfo_tavg_1hr_glo_L576x361_slv           '
+    GEOSIT_defs( 7,3) = 'lfo_tavg_1hr_glo_L576x361_slv           '
+    GEOSIT_defs( 8,3) = 'lfo_inst_1hr_glo_L576x361_slv           '
+    GEOSIT_defs( 9,3) = 'lfo_inst_1hr_glo_L576x361_slv           '
+    GEOSIT_defs(10,3) = 'lfo_inst_1hr_glo_L576x361_slv           '
+    GEOSIT_defs(11,3) = 'lfo_inst_1hr_glo_L576x361_slv           '
+    GEOSIT_defs(12,3) = 'lfo_inst_1hr_glo_L576x361_slv           '
 
 
     ! MERRA-2 file specs with uncorrected (AGCM) precip from the "int" Collection