change gridname

Author: weiyuan-jiang

GEOSldas_App/preprocess_ldas_routines.F90

@@ -2402,6 +2402,12 @@ subroutine optimize_latlon(fname_tilefile, N_proc_string, optimized_file, run_di
           call ldas_abort(LDAS_GENERIC_ERROR, Iam, err_msg)          
        end if
 
+       if (index(gridname, 'SMAP') /=0 ) then
+          gridname = trim(adjustl(gridname))
+          gridname = gridname(6:)
+          gridname(7:7) = '_' ! replace '-' with '_'
+       endif
+
        open(10,file=optimized_file, action='write')
        write(10,'(A)')    "GEOSldas.GRID_TYPE:  EASE"
        write(10,'(A)')    "GEOSldas.GRIDNAME:   "//trim(gridname)