diff options
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 |