aboutsummaryrefslogtreecommitdiff
path: root/player/player.F90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-05-18 08:56:54 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-05-18 08:56:54 -0400
commit40c9cf38ca70f2d5b8418b5e2fdda78ab3707844 (patch)
tree433fcf699a0f382fd5e1f2f426e9ca71059871f1 /player/player.F90
parenta5b792489808e6259986fdc38d60d674faef806a (diff)
downloadlevitating-40c9cf38ca70f2d5b8418b5e2fdda78ab3707844.tar.gz
levitating-40c9cf38ca70f2d5b8418b5e2fdda78ab3707844.zip
Added time stamps to common player stdout messages. Fixed delete_tree task to blow away files by default.
Diffstat (limited to 'player/player.F90')
-rw-r--r--player/player.F904
1 files changed, 3 insertions, 1 deletions
diff --git a/player/player.F90 b/player/player.F90
index 308be3b..121b441 100644
--- a/player/player.F90
+++ b/player/player.F90
@@ -64,7 +64,9 @@ implicit none
end if
if(work_to_do) then
- Print *, "Work Available"
+
+ ! GNU Extension... :(
+ Print *, fdate()//" Work Available"
job_id = get_job_id_from_checkin(j_checkin)
call get_instruction_name_from_checkin(j_checkin, instruction_name)