marbl_logging.F90

1! This file is part of MOM6, the Modular Ocean Model version 6.
2! See the LICENSE file for licensing information.
3! SPDX-License-Identifier: Apache-2.0
4
5!> A non-functioning template of the MARBL logging module
6module marbl_logging
7
8 implicit none
9 private
10
11 !> A non-functioning template of the marbl status log type
12 type, public :: marbl_status_log_entry_type
13 integer :: elementind !< dummy index
14 logical :: lonly_master_writes !< dummy flag
15 character(len=0) :: logmessage !< dummy message
16 type(marbl_status_log_entry_type), pointer :: next !< dummy pointer
18
19 !> A non-functioning template of the marbl status log type
20 type, public :: marbl_log_type
21 logical, public :: labort_marbl !< dummy flag
22 type(marbl_status_log_entry_type), pointer :: fulllog !< dummy pointer
23 contains
24 procedure, public :: log_error_trace !< dummy trace routine
25 procedure, public :: erase !< dummy erase routine
26 end type marbl_log_type
27
28contains
29
30 !> dummy trace routine
31 subroutine log_error_trace(self, RoutineName, CodeLoc, ElemInd)
32 class(marbl_log_type), intent(inout) :: self
33 character(len=*), intent(in) :: RoutineName, CodeLoc
34 integer, optional, intent(in) :: ElemInd
35 end subroutine log_error_trace
36
37 !> dummy erase routine
38 subroutine erase(self)
39 class(marbl_log_type), intent(inout) :: self
40 end subroutine erase
41
42end module marbl_logging