Skip to content

Commit

Permalink
Small fixes to build
Browse files Browse the repository at this point in the history
  • Loading branch information
scrasmussen committed Aug 20, 2024
1 parent b5eecf5 commit 264a821
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 4 deletions.
5 changes: 2 additions & 3 deletions physics/CONV/nTiedtke/mmm_cu_ntiedtke_pre.F90
Original file line number Diff line number Diff line change
Expand Up @@ -25,8 +25,7 @@ module mmm_cu_ntiedtke_pre
!! \htmlinclude mmm_cu_ntiedtke_init.html
!!
subroutine mmm_cu_ntiedtke_pre_init(con_cp, con_rd, con_rv, con_hvap, &
con_xls, con_hfus, con_g)
use foo:, only
con_xls, con_hfus, con_g, errmsg, errflg)

implicit none
!input arguments:
Expand All @@ -39,7 +38,7 @@ subroutine mmm_cu_ntiedtke_pre_init(con_cp, con_rd, con_rv, con_hvap, &
real(kind=kind_phys), intent(in) :: con_g !< gravitational acceleration

!--- output arguments:
character(len=*), intent(out): : errmsg
character(len=*), intent(out) :: errmsg
integer, intent(out) :: errflg

! Initialize the CCPP error handling variables
Expand Down
2 changes: 1 addition & 1 deletion physics/mmm_physics
Submodule mmm_physics updated 1 files
+63 −64 mmm_cu_ntiedtke.F90

0 comments on commit 264a821

Please sign in to comment.