-
Notifications
You must be signed in to change notification settings - Fork 36
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
Fix incorrect intents. #201
Conversation
@@ -430,7 +430,7 @@ | |||
dimensions = (horizontal_loop_extent,vertical_layer_dimension,number_of_tracers) | |||
type = real | |||
kind = kind_phys | |||
intent = inout | |||
intent = in |
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.
no change for save_q
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.
The fortran code has this as intent(in). Change is needed here to match
@@ -43,10 +43,10 @@ subroutine GFS_MP_generic_post_run( | |||
integer, intent(in) :: index_of_temperature,index_of_process_mp,use_lake_model(:) | |||
integer, intent(in) :: imfshalcnv,imfshalcnv_gf,imfdeepcnv,imfdeepcnv_gf,imfdeepcnv_samf | |||
integer, dimension (:), intent(in) :: htop | |||
integer :: dfi_radar_max_intervals | |||
integer, intent(in) :: dfi_radar_max_intervals |
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.
This variable isn't being used in the code as far as I can tell. Can we just take it out?
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.
Done.
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.
All good catches! Thanks.
@dustinswales I'd like to combine this with other PRs to save on the UFS merge process. Are you OK if I do this? My understanding is that this should not change RT results. |
Combined into #205 |
Some inconsistencies in fortran/metadata were discovered when using Capgen. Capgen's Fortran parser uncovered these mismatch in argument intents.