fs: use generic filesep

space-physics · Sep 1, 2023 · 08e1b2c · 08e1b2c
1 parent f1ed959
commit 08e1b2c
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/src/ncarglow/fortran/fsutils.f90 b/src/ncarglow/fortran/fsutils.f90
@@ -17,9 +17,9 @@ function expanduser(indir)
 if (indir(1:1) /= '~') then
   expanduser = trim(adjustl(indir))
 elseif (len_trim(indir) < 3) then
-  expanduser = homedir()
+  expanduser = homedir() // "/"
 else
-  expanduser = homedir() // trim(adjustl(indir(3:)))
+  expanduser = homedir() // "/" // trim(adjustl(indir(3:)))
 endif
 
 end function expanduser
@@ -28,19 +28,16 @@ end function expanduser
 function homedir()
 
 character(:), allocatable :: homedir
-character :: filesep
 character(256) :: buf
 
 ! assume MacOS/Linux/BSD/Cygwin/WSL
-filesep = '/'
 call get_environment_variable("HOME", buf)
 
 if (len_trim(buf) == 0) then  ! Windows
   call get_environment_variable("USERPROFILE", buf)
-  filesep = char(92)
 endif
 
-homedir = trim(buf) // filesep
+homedir = trim(buf)
 
 end function homedir