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.

Sign up for GitHub

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

remove compiler warnings for CMEPS #114

Merged
merged 2 commits into from
Mar 12, 2024
Merged

remove compiler warnings for CMEPS #114

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
4127636
fix dummy arguments w/o values
DeniseWorthen Jan 31, 2024
fa78b46
Merge branch 'NOAA-EMC:emc/develop' into feature/nowarn
DeniseWorthen Feb 5, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
5 changes: 4 additions & 1 deletion ufs/glc_elevclass_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -37,6 +37,7 @@ subroutine glc_get_elevation_classes_without_bareland(glc_topo, glc_elevclass, l
real(r8), intent(in) :: glc_topo(:) ! topographic height
integer , intent(out) :: glc_elevclass(:) ! elevation class
integer , intent(in) :: logunit
glc_elevclass = 0
end subroutine glc_get_elevation_classes_without_bareland

!-----------------------------------------------------------------------
Expand All @@ -45,6 +46,7 @@ subroutine glc_get_elevation_classes_with_bareland(glc_ice_covered, glc_topo, gl
real(r8), intent(in) :: glc_topo(:) ! ice topographic height
integer , intent(out) :: glc_elevclass(:) ! elevation class
integer , intent(in) :: logunit
glc_elevclass = 0
end subroutine glc_get_elevation_classes_with_bareland

!-----------------------------------------------------------------------
Expand All @@ -57,11 +59,12 @@ end function glc_mean_elevation_virtual

!-----------------------------------------------------------------------
subroutine glc_get_fractional_icecov(nec, glc_topo, glc_icefrac, glc_icefrac_ec, logunit)
integer , intent(in) :: nec ! number of elevation classes
integer , intent(in) :: nec ! number of elevation classes
real(r8), intent(in) :: glc_topo(:) ! topographic height
real(r8), intent(in) :: glc_icefrac(:)
real(r8), intent(out) :: glc_icefrac_ec(:,:)
integer , intent(in) :: logunit
glc_icefrac_ec = 0.0_r8
end subroutine glc_get_fractional_icecov

end module glc_elevclass_mod