Skip to content

Commit 678ed63

Browse files
committed
Add timestep_init to physics group
1 parent 4386d5a commit 678ed63

2 files changed

Lines changed: 37 additions & 0 deletions

File tree

physics/Interstitials/MPAS/MPAS_PBL_generic_post.F90

Lines changed: 17 additions & 0 deletions
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_init.html
14+
!!
15+
subroutine MPAS_PBL_generic_post_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_init()'
28+
end subroutine MPAS_PBL_generic_post_init
29+
1330
!! \htmlinclude MPAS_PBL_generic_post_timestep_init.html
1431
!!
1532
subroutine MPAS_PBL_generic_post_timestep_init (errmsg, errflg)

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_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_timestep_init

0 commit comments

Comments
 (0)