Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

generalize table reading in p3_iso_c #2857

Merged
merged 4 commits into from
Jul 12, 2024
Merged

generalize table reading in p3_iso_c #2857

Changes from 1 commit
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
7a7333d
set explicit out and expand type
mahf708 Jun 3, 2024
b2bd480
avoid specifying prefix type
mahf708 Jun 3, 2024
d0a7290
use char concat instead of write routine
mahf708 Jun 3, 2024
d2ed08c
null char offset
mahf708 Jun 3, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions components/eamxx/src/physics/p3/p3_iso_c.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,8 +16,8 @@ module p3_iso_c
contains
subroutine append_precision(string, prefix)

character(kind=c_char, len=256), intent(inout) :: string
character(*), intent(in) :: prefix
character(kind=c_char, len=256), intent(out) :: string
character(kind=c_char, len=*), intent(in) :: prefix
mahf708 marked this conversation as resolved.
Show resolved Hide resolved
real(kind=c_real) :: s

write (string, '(a,i1,a1)') prefix, sizeof(s), C_NULL_CHAR
Expand Down