Skip to content

Commit 4386d5a

Browse files
committed
Add timestep_init to physics group
1 parent 9c06fdb commit 4386d5a

2 files changed

Lines changed: 38 additions & 1 deletion

File tree

physics/Interstitials/MPAS/MPAS_PBL_generic_post.F90

Lines changed: 18 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,23 @@ module MPAS_PBL_generic_post
1010

1111
contains
1212

13+
!! \htmlinclude MPAS_PBL_generic_post_timestep_init.html
14+
!!
15+
subroutine MPAS_PBL_generic_post_timestep_init (errmsg, errflg)
16+
use ccpp_wp, only : kind_phys
17+
18+
implicit none
19+
! CCPP error handling variables
20+
character(len=*), intent(out) :: errmsg
21+
integer, intent(out) :: errflg
22+
23+
! Initialize CCPP error handling variables
24+
errmsg = ''
25+
errflg = 0
26+
27+
print*,'CCPP: Calling MPAS_PBL_generic_post_timestep_init()'
28+
end subroutine MPAS_PBL_generic_post_timestep_init
29+
1330
! #########################################################################################
1431
!> \brief This scheme sets up the vertically diffused tracer array for any PBL scheme based
1532
!! on the microphysics scheme chosen
@@ -31,7 +48,7 @@ subroutine MPAS_PBL_generic_post_run (errmsg, errflg)
3148
errmsg = ''
3249
errflg = 0
3350

34-
print*,'CCPP: Calling MPAS_PBL_generic_pose_run()'
51+
print*,'CCPP: Calling MPAS_PBL_generic_post_run()'
3552
end subroutine MPAS_PBL_generic_post_run
3653

3754
end module MPAS_PBL_generic_post

physics/Interstitials/MPAS/MPAS_PBL_generic_post.meta

Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,26 @@
33
type = scheme
44
dependencies = ../../hooks/ccpp_wp.F
55

6+
########################################################################
7+
[ccpp-arg-table]
8+
name = MPAS_PBL_generic_post_timestep_init
9+
type = scheme
10+
[errmsg]
11+
standard_name = ccpp_error_message
12+
long_name = error message for error handling in CCPP
13+
units = none
14+
dimensions = ()
15+
type = character
16+
kind = len=*
17+
intent = out
18+
[errflg]
19+
standard_name = ccpp_error_code
20+
long_name = error code for error handling in CCPP
21+
units = 1
22+
dimensions = ()
23+
type = integer
24+
intent = out
25+
626
########################################################################
727
[ccpp-arg-table]
828
name = MPAS_PBL_generic_post_run

0 commit comments

Comments
 (0)