diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-07 14:21:35 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-07 14:21:35 -0400 |
| commit | c493170e73506e974a0644452fc5a334c08171bc (patch) | |
| tree | 7cfbbde04f5e3263092118dbabf843fbe68d93ad /common/utilities.F90 | |
| parent | 1de4bd52574599452f9e92c8e36381a4797563fb (diff) | |
| download | levitating-c493170e73506e974a0644452fc5a334c08171bc.tar.gz levitating-c493170e73506e974a0644452fc5a334c08171bc.zip | |
Fixed many issues related to reporting status. Initial debugging of titan upload handling.
Diffstat (limited to 'common/utilities.F90')
| -rw-r--r-- | common/utilities.F90 | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/common/utilities.F90 b/common/utilities.F90 index d4b7b81..cd32610 100644 --- a/common/utilities.F90 +++ b/common/utilities.F90 @@ -56,7 +56,7 @@ contains integer, intent(in)::unit_number integer, intent(in), dimension(8)::values - write(unit_number, '(I4, A1, I2, A1, I2, 1X, I2, A1, I2, A1, I2)') & + write(unit_number, '(I4, A1, I0.2, A1, I0.2, 1X, I2, A1, I0.2, A1, I0.2)') & values(1), "-", & values(2), "-", & values(3), & @@ -207,6 +207,7 @@ contains write(num_text, *) abs(rnum) fullpath = "/tmp/lv."//trim(adjustl(num_text))//".tmp" + !call write_log("My temp filename is: '"//trim(fullpath)//"'") #endif end function generate_temporary_filename @@ -239,9 +240,7 @@ contains length_estimate = len_trim(str) + len_trim(val) allocate(character(len=length_estimate) :: holding) holding = " " - - print *, trim(str) - + ! Find the field field_location = index(str, "{"//trim(field)//"}") if(field_location > 0) then @@ -253,9 +252,7 @@ contains str = holding end if - - print *, trim(str) - + deallocate(holding) end subroutine replace_field_text |