-
Notifications
You must be signed in to change notification settings - Fork 2
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
File size reduction #9
base: develop-for-jedi
Are you sure you want to change the base?
Changes from all commits
File filter
Filter by extension
Conversations
Jump to
Diff view
Diff view
There are no files selected for viewing
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -89,6 +89,13 @@ function atm_core_init(domain, startTimeStamp) result(ierr) | |
! input alarms for both input and restart before reading any remaining | ||
! input streams. | ||
! | ||
call MPAS_stream_mgr_read(domain % streamManager, streamID='static', whence=MPAS_STREAM_NEAREST, ierr=ierr) | ||
if (ierr /= MPAS_STREAM_MGR_NOERR) then | ||
call mpas_log_write('********************************************************************************', messageType=MPAS_LOG_ERR) | ||
call mpas_log_write('Error reading static fields', messageType=MPAS_LOG_ERR) | ||
call mpas_log_write('********************************************************************************', messageType=MPAS_LOG_CRIT) | ||
end if | ||
call MPAS_stream_mgr_reset_alarms(domain % streamManager, streamID='static', direction=MPAS_STREAM_INPUT, ierr=ierr) | ||
Comment on lines
+92
to
+98
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. I think we should make this static stream read optional for now (e.g., through an extra namelist parameter 'separate_init_stream' or something more meaningful?), single file restart/init initialization capability should remain unchanged. It may be more acceptable for the model group if we want to commit this change to the official MPAS model repo. |
||
if (config_do_restart) then | ||
call MPAS_stream_mgr_read(domain % streamManager, streamID='restart', ierr=ierr) | ||
else | ||
|
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -302,20 +302,9 @@ function atm_get_mesh_stream(configs, stream) result(ierr) | |
character(len=StrKIND), intent(out) :: stream | ||
integer :: ierr | ||
|
||
logical, pointer :: config_do_restart | ||
|
||
ierr = 0 | ||
|
||
call mpas_pool_get_config(configs, 'config_do_restart', config_do_restart) | ||
|
||
if (.not. associated(config_do_restart)) then | ||
call mpas_log_write('config_do_restart was not found when defining mesh stream.', messageType=MPAS_LOG_ERR) | ||
ierr = 1 | ||
else if (config_do_restart) then | ||
write(stream,'(a)') 'restart' | ||
else | ||
write(stream,'(a)') 'input' | ||
end if | ||
write(stream,'(a)') 'static' | ||
Comment on lines
-309
to
+307
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Same 'optional' comment as above. |
||
|
||
end function atm_get_mesh_stream | ||
|
||
|
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Looks like there is one column misalignment, which leads to spurious diffs. Need to re-align those lines.