LOGNAME workaround for GETLOG

Author: jeffhammond

src/argos/argos_prep_wrttop.F

@@ -182,6 +182,12 @@ logical function argos_prep_wrttop(lfnout,title,lfntop,filtop,
       call swatch(topdat,toptim)
 #ifdef USE_POSIXF
       call pxfgetlogin(user, ilen, ierror)
+#elif USE_GETENV_LOGNAME
+!     From https://linux.die.net/man/3/getlogin:
+!     For most purposes, it is more useful to use the environment variable
+!     LOGNAME to find out who the user is. This is more flexible precisely
+!     because the user can set LOGNAME arbitrarily.
+      call util_getenv('LOGNAME',user)
 #else
       call getlog(user)
 #endif

src/argos/argos_prepare_wrttop.F

@@ -182,6 +182,11 @@ logical function argos_prepare_wrttop(lfnout,title,lfntop,filtop,
       call swatch(topdat,toptim)
 #ifdef USE_POSIXF
       call pxfgetlogin(user, ilen, ierror)
+#elif USE_GETENV_LOGNAME
+!     From https://linux.die.net/man/3/getlogin:
+!     For most purposes, it is more useful to use the environment variable
+!     LOGNAME to find out who the user is. This is more flexible precisely
+!     because the user can set LOGNAME arbitrarily.
 #else
       call getlog(user)
 #endif

src/argos/argos_space_wtmro.F

@@ -28,6 +28,11 @@ subroutine argos_space_wtmro(lfnmro,stime,pres,temp,tempw,temps,
       call swatch(rdate,rtime)
 #ifdef USE_POSIXF
       call pxfgetlogin(user, ilen, ierror)
+#elif USE_GETENV_LOGNAME
+!     From https://linux.die.net/man/3/getlogin:
+!     For most purposes, it is more useful to use the environment variable
+!     LOGNAME to find out who the user is. This is more flexible precisely
+!     because the user can set LOGNAME arbitrarily.
 #else
       call getlog(user)
 #endif

src/argos/argos_space_wtrst.F

@@ -39,6 +39,11 @@ subroutine argos_space_wtrst(lfnrst,filrst,lveloc,pres,
       call swatch(rdate,rtime)
 #ifdef USE_POSIXF
       call pxfgetlogin(user, ilen, ierror)
+#elif USE_GETENV_LOGNAME
+!     From https://linux.die.net/man/3/getlogin:
+!     For most purposes, it is more useful to use the environment variable
+!     LOGNAME to find out who the user is. This is more flexible precisely
+!     because the user can set LOGNAME arbitrarily.
 #else
       call getlog(user)
 #endif

src/config/makefile.h

@@ -3129,7 +3129,10 @@ ifneq ($(TARGET),LINUX)
             EXTRA_LIBS += -lm
             DEFINES  += -DUSE_FLANG
         endif
-
+        # Jeff: F18 does not support GETLOG _or_ PXF
+        ifeq ($(USE_FLANG),1)
+           DEFINES  += -DUSE_GETENV_LOGNAME
+        endif
     endif
 
 endif

src/prepar/pre_wrttop.F

@@ -182,6 +182,11 @@ logical function pre_wrttop(lfnout,title,lfntop,filtop,
       call swatch(topdat,toptim)
 #ifdef USE_POSIXF
       call pxfgetlogin(user, ilen, ierror)
+#elif USE_GETENV_LOGNAME
+!     From https://linux.die.net/man/3/getlogin:
+!     For most purposes, it is more useful to use the environment variable
+!     LOGNAME to find out who the user is. This is more flexible precisely
+!     because the user can set LOGNAME arbitrarily.
 #else
       call getlog(user)
 #endif

src/space/sp_init.F

@@ -2355,6 +2355,11 @@ subroutine sp_wtrst(lfnrst,filrst,lveloc,pres,temp,tempw,temps,
       call swatch(rdate,rtime)
 #ifdef USE_POSIXF
       call pxfgetlogin(user, ilen, ierror)
+#elif USE_GETENV_LOGNAME
+!     From https://linux.die.net/man/3/getlogin:
+!     For most purposes, it is more useful to use the environment variable
+!     LOGNAME to find out who the user is. This is more flexible precisely
+!     because the user can set LOGNAME arbitrarily.
 #else
       call getlog(user)
 #endif
@@ -3939,6 +3944,11 @@ subroutine sp_wtmro(lfnmro,stime,pres,temp,tempw,temps,
       call swatch(rdate,rtime)
 #ifdef USE_POSIXF
       call pxfgetlogin(user, ilen, ierror)
+#elif USE_GETENV_LOGNAME
+!     From https://linux.die.net/man/3/getlogin:
+!     For most purposes, it is more useful to use the environment variable
+!     LOGNAME to find out who the user is. This is more flexible precisely
+!     because the user can set LOGNAME arbitrarily.
 #else
       call getlog(user)
 #endif