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.

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

Timestamp in rpointer name #1147

Open
wants to merge 6 commits into
base: cam_development
Choose a base branch
from

Conversation

jedwards4b
Copy link

Add a timestamp in the rpointer name.
This is a backward compatible change in that rpointer.cam will still work
but new files will include a timestamp.
Fixes #1146

@jedwards4b jedwards4b marked this pull request as draft September 11, 2024 20:19
@cacraigucar cacraigucar added the misc tag issue or PR candidate for upcoming misc tag label Sep 17, 2024
@jedwards4b jedwards4b marked this pull request as ready for review October 3, 2024 16:36
Copy link
Collaborator

@brian-eaton brian-eaton left a comment

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

minor comments and a question

src/control/cam_comp.F90 Outdated Show resolved Hide resolved
Comment on lines 122 to 124
write(iulog, "Warning : rpointer file "//trim(rest_pfile)//" not found.")
rest_pfile = "rpointer.cam"//trim(inst_suffix)
inquire(file=trim(rest_pfile),exist=found)
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
write(iulog, "Warning : rpointer file "//trim(rest_pfile)//" not found.")
rest_pfile = "rpointer.cam"//trim(inst_suffix)
inquire(file=trim(rest_pfile),exist=found)
write(iulog, "INFO : rpointer file "//trim(rest_pfile)//" not found.")
rest_pfile = "rpointer.cam"//trim(inst_suffix)
write(iulog, " Try looking for "//trim(rest_pfile)//" ...")
inquire(file=trim(rest_pfile),exist=found)

Copy link
Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

done

@@ -109,7 +109,6 @@ subroutine read_namelist(nlfilename, single_column, scmlat, scmlon)
logical, intent(in) :: single_column
real(r8), intent(in) :: scmlat
real(r8), intent(in) :: scmlon

Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Only a whitespace change. This file should be reverted to original.

Comment on lines +1979 to +1980
restart_pfile = interpret_filename_spec('rpointer.cpl.%y-%m-%d-%s',&
yr_spec=yr_spec, mon_spec=mon_spec, day_spec=day_spec, sec_spec= sec_spec )
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

restart_pfile is set but not used. Is this for a future need when the coupler external is updated?

Copy link
Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thanks for pointing out this bug, it should replace 'rpointer.cpl' below

Copy link
Collaborator

@brian-eaton brian-eaton left a comment

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

looks good now

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
misc tag issue or PR candidate for upcoming misc tag
Projects
Status: No status
Development

Successfully merging this pull request may close these issues.

3 participants