istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Fix problem with long filenames not fitting the header width

Browse Source
This commit is contained in:
Lorenzo Figini 2022-11-24 23:34:09 +01:00
parent aa3b816ffe
commit 411c4ece48
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/gray_params.f90
View File

@ -153,6 +153,7 @@ contains
#ifndef REVISION #ifndef REVISION
character(len=*), parameter :: REVISION="unknown" character(len=*), parameter :: REVISION="unknown"
#endif #endif
integer :: ierr
! Date and time ! Date and time
call date_and_time(date, time) call date_and_time(date, time)
@ -165,7 +166,7 @@ contains
! MHD equilibrium parameters ! MHD equilibrium parameters
if (params%equilibrium%iequil > 0) then if (params%equilibrium%iequil > 0) then
write(strout(3), '("# EQL input: ",a)') trim(params%equilibrium%filenm) write(strout(3), '("# EQL input: ",a)') trim(params%equilibrium%filenm(1:95))
! TODO add missing values ! TODO add missing values
write(strout(7), '("# EQL B0 R0 aminor Rax zax:",5(1x,g0.5))') & write(strout(7), '("# EQL B0 R0 aminor Rax zax:",5(1x,g0.5))') &
0._wp_, 0._wp_, 0._wp_, 0._wp_, 0._wp_ 0._wp_, 0._wp_, 0._wp_, 0._wp_, 0._wp_
@ -191,7 +192,7 @@ contains
! Profiles parameters ! Profiles parameters
if (params%equilibrium%iequil > 0) then if (params%equilibrium%iequil > 0) then
write(strout(8), '("# PRF input: ",a)') trim(params%profiles%filenm) write(strout(8), '("# PRF input: ",a)') trim(params%profiles%filenm(1:95))
write(strout(9), '("# PRF iprof iscal factne factte:",4(1x,g0.4))') & write(strout(9), '("# PRF iprof iscal factne factte:",4(1x,g0.4))') &
params%profiles%iprof, params%profiles%iscal, & params%profiles%iprof, params%profiles%iscal, &
params%profiles%factne, params%profiles%factte params%profiles%factne, params%profiles%factte
@ -212,7 +213,7 @@ contains
end if end if
! Antenna parameters ! Antenna parameters
write(strout(12), '("# ANT input: ",a)') trim(params%antenna%filenm) write(strout(12), '("# ANT input: ",a)') trim(params%antenna%filenm(1:95))
write(strout(13), '("# ANT ibeam iox psi chi:",4(1x,g0.4))') & write(strout(13), '("# ANT ibeam iox psi chi:",4(1x,g0.4))') &
params%antenna%ibeam, params%antenna%iox, & params%antenna%ibeam, params%antenna%iox, &
params%antenna%psi, params%antenna%chi params%antenna%psi, params%antenna%chi