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

Addressing GNU Warnings #151

Closed

Conversation

laurenchilutti
Copy link
Contributor

Description

These are fixes to the GCC 10.2.0 warnings
I have also added a change to fv_regional_bc so that the flag "-fallow-invalid-boz" is no longer needed for GNU compilation.

Fixes #78

How Has This Been Tested?

Changes were tested with SHiELD model RTS tests

Checklist:

Please check all whether they apply or not

  • My code follows the style guidelines of this project
  • I have performed a self-review of my own code
  • I have commented my code, particularly in hard-to-understand areas
  • I have made corresponding changes to the documentation
  • My changes generate no new warnings
  • Any dependent changes have been merged and published in downstream modules

@@ -800,7 +800,8 @@ subroutine ps_nudging(dt, factor, factor_nwp, npz, ak, bk, ps_obs, mask, tm, ps,
pt0 = tm(i,j)/(pk0(km+1)-pk0(km))*(kappa*(pn0(km+1)-pn0(km)))
pst = pk0(km+1) + (gz0(i,j)-phis(i,j))/(cp_air*pt0)
endif
666 ps_dt(i,j) = pst**(1./kappa) - ps(i,j)
ps_dt(i,j) = pst**(1./kappa) - ps(i,j)
Copy link
Contributor

Choose a reason for hiding this comment

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

In the original code, 'goto 666' will execute the ps_dt(i,j) assignment. The revised code will not.

@laurenchilutti laurenchilutti requested a review from bensonr October 6, 2021 13:24
@lharris4
Copy link
Contributor

lharris4 commented Oct 6, 2021

Other than the one goto statement in fv_nudge I think this is fine.

@bensonr
Copy link
Contributor

bensonr commented Oct 6, 2021

handled a different way

@bensonr bensonr closed this Oct 6, 2021
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

Fortran 2018 standard issues
3 participants