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

Update solo/atmos_model.F90 for FMS module new aliasing #25

Merged
merged 1 commit into from
Jul 18, 2023

Conversation

laurenchilutti
Copy link
Contributor

Description
solo/atmos_model.F90 uses the FMS module. In FMS 2023.02-beta1 this module has aliased all functions to contain a prefix before the function name. This PR changes to the new naming convention so that the code can compile with FMS 2023.02-beta2.

Fixes # (issue)

How Has This Been Tested?
Tested with SHiELD solo tests on Gaea with intel

Checklist:

  • 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
  • New check tests, if applicable, are included

@laurenchilutti laurenchilutti requested review from bensonr and mcallic2 and removed request for thomas-robinson July 18, 2023 14:33


!----- read namelist -------

read (input_nml_file, nml=main_nml, iostat=io)
read (fms_mpp_input_nml_file, nml=main_nml, iostat=io)
ierr = check_nml_error(io, 'main_nml')
Copy link
Contributor

Choose a reason for hiding this comment

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

Did we change check_nml_error as well?

Copy link
Contributor Author

Choose a reason for hiding this comment

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

No, this was not aliased in libFMS.F90

call write_version_number ("program atmos_model", version)
if ( mpp_pe() == mpp_root_pe() ) write (logunit, nml=main_nml)
call fms_write_version_number ("program atmos_model", version)
if ( fms_mpp_pe() == fms_mpp_root_pe() ) write (logunit, nml=main_nml)

if (dt_atmos == 0) then
call error_mesg ('program atmos_model', 'dt_atmos has not been specified', FATAL)
Copy link
Contributor

Choose a reason for hiding this comment

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

Did we change error_mesg as well?

Copy link
Contributor Author

Choose a reason for hiding this comment

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

No, this also wasnt changed.

Copy link
Contributor Author

@laurenchilutti laurenchilutti Jul 18, 2023

Choose a reason for hiding this comment

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

Copy link
Contributor

Choose a reason for hiding this comment

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

Let's put an issue in to start the discussion for these few that were left unchanged in the FMS modulefile. I'll go on ahead and approve for now.

@laurenchilutti
Copy link
Contributor Author

I will merge this now and create a 2023.02-beta1 tag for testing. I have created an issue to bring attention to the tow routines that were not aliased. And if there are more changes in FMS, then I will create another PR to address that.

@laurenchilutti laurenchilutti merged commit 66d7566 into NOAA-GFDL:main Jul 18, 2023
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.

3 participants