Skip to content

Commit

Permalink
fix MMF build issues
Browse files Browse the repository at this point in the history
  • Loading branch information
whannah1 committed Dec 3, 2024
1 parent b635da7 commit 87a6906
Show file tree
Hide file tree
Showing 2 changed files with 32 additions and 1 deletion.
31 changes: 31 additions & 0 deletions components/eam/src/physics/crm/dummy_modules/clubb_intr.F90
Original file line number Diff line number Diff line change
@@ -0,0 +1,31 @@
module clubb_intr
!-------------------------------------------------------------------------------
! Dummy module to override src/physics/cam/clubb_intr.F90
!-------------------------------------------------------------------------------
use shr_kind_mod, only: r8=>shr_kind_r8
public :: clubb_implements_cnst
public :: clubb_init_cnst
public :: clubb_readnl
contains
!===============================================================================
function clubb_implements_cnst(name)
! Return true if specified constituent is implemented
character(len=*), intent(in) :: name ! constituent name
logical :: clubb_implements_cnst ! return value
clubb_implements_cnst = .false.
end function clubb_implements_cnst
!===============================================================================
subroutine clubb_init_cnst(name, q, gcid)
! Initialize the state if clubb_do_adv
character(len=*), intent(in) :: name ! constituent name
real(r8), intent(out) :: q(:,:) ! mass mixing ratio (gcol, plev)
integer, intent(in) :: gcid(:) ! global column id
return
end subroutine clubb_init_cnst
!===============================================================================
subroutine clubb_readnl(nlfile)
character(len=*), intent(in) :: nlfile ! filepath for file containing namelist input
return
end subroutine clubb_readnl
!===============================================================================
end module clubb_intr
2 changes: 1 addition & 1 deletion components/eam/src/physics/crm/physpkg.F90
Original file line number Diff line number Diff line change
Expand Up @@ -638,7 +638,7 @@ subroutine phys_init( phys_state, phys_tend, pbuf2d, cam_out )
if (co2_transport()) call co2_init()
call co2_diags_init(phys_state)

call gw_init()
call gw_init(pbuf2d)

call rayleigh_friction_init()

Expand Down

0 comments on commit 87a6906

Please sign in to comment.