diff --git a/test/advection_test/cld_ice.F90 b/test/advection_test/cld_ice.F90 index 86881f7f..5a91282f 100644 --- a/test/advection_test/cld_ice.F90 +++ b/test/advection_test/cld_ice.F90 @@ -10,6 +10,7 @@ MODULE cld_ice PUBLIC :: cld_ice_init PUBLIC :: cld_ice_run + PUBLIC :: cld_ice_final real(kind_phys), private :: tcld = HUGE(1.0_kind_phys) @@ -71,4 +72,26 @@ subroutine cld_ice_init(tfreeze, cld_ice, errmsg, errflg) end subroutine cld_ice_init + !> \section arg_table_cld_ice_final Argument Table + !! \htmlinclude arg_table_cld_ice_final.html + !! + + !> @{ + !! This routine does nothing, but it tests if blank + !! lines and doxygen comments between metadata hooks + !! and the subroutine are parsed correctly. + !! @{ + + subroutine cld_ice_final(errmsg, errflg) + + character(len=512), intent(out) :: errmsg + integer, intent(out) :: errflg + + errmsg = '' + errflg = 0 + + end subroutine cld_ice_final + !! @} + !! @} + END MODULE cld_ice diff --git a/test/advection_test/cld_ice.meta b/test/advection_test/cld_ice.meta index 0d868d27..e4a961ab 100644 --- a/test/advection_test/cld_ice.meta +++ b/test/advection_test/cld_ice.meta @@ -96,3 +96,21 @@ dimensions = () type = integer intent = out +[ccpp-arg-table] + name = cld_ice_final + type = scheme +[ errmsg ] + standard_name = ccpp_error_message + long_name = Error message for error handling in CCPP + units = none + dimensions = () + type = character + kind = len=512 + intent = out +[ errflg ] + standard_name = ccpp_error_code + long_name = Error flag for error handling in CCPP + units = 1 + dimensions = () + type = integer + intent = out