File tree Expand file tree Collapse file tree
physics/Interstitials/MPAS Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -10,6 +10,23 @@ module MPAS_PBL_generic_post
1010
1111contains
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 )
Original file line number Diff line number Diff line change 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
You can’t perform that action at this time.
0 commit comments