Remove the //'-id' added to feature_idname in list_dsg_data.F; add co…

…mment in list_dsg_comma_tab.F git-svn-id: file:///home/users/tmap/svn/repos/ferret/trunk@27188 fdbf22ae-c210-0410-be80-ca943da6b8f8
NOAA-PMEL · Jun 24, 2020 · 5ba77e2 · 5ba77e2
1 parent 4dd50ad
commit 5ba77e2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/fer/gnl/list_dsg_comma_tab.F b/fer/gnl/list_dsg_comma_tab.F
@@ -387,6 +387,7 @@ SUBROUTINE LIST_DSG_COMMA_TAB (dset, cx_list, mr_list, nvar,
 * ... have the user's constraints removed this observation?
 	      IF (.NOT.process_obs(iobs)) CYCLE
 
+*             Appending space just to get rid of a nonsense compiler warning
 	      line_buff = id_buff(:ilen)//' '
 	      slen = ilen
 

diff --git a/fer/gnl/list_dsg_data.F b/fer/gnl/list_dsg_data.F
@@ -396,7 +396,7 @@ SUBROUTINE LIST_DSG_DATA ( dset, cx_list, mr_list, nvar,
 
 	   IF (orientation .NE. pfeatureType_Point) THEN
 	      WRITE ( risc_buff, FMT ) 
-     .           vname_buff(:vname_len), feature_idname(:TM_LENSTR1(feature_idname))//'-id'
+     .           vname_buff(:vname_len), feature_idname(:TM_LENSTR1(feature_idname))
 	      IF (.NOT.norow) CALL SPLIT_LIST(pttmode_explct, list_lun, risc_buff, 0)
 	   ENDIF