comin_print.F90

Go to the documentation of this file.

 
!
!  @authors 08/2021 :: ICON Community Interface  <comin@icon-model.org>
!
!  SPDX-License-Identifier: BSD-3-Clause
!
!  See LICENSES for license information.
!  Where software is supplied by third parties, it is indicated in the
!  headers of the routines.
!
MODULE comin_print
 
  USE comin_state,                ONLY: state
  USE comin_c_utils,              ONLY: convert_c_string
  USE iso_c_binding,              ONLY: c_ptr
 
  PUBLIC :: comin_print_debug
  PUBLIC :: comin_print_info
  PUBLIC :: comin_print_warning
 
CONTAINS
 
  SUBROUTINE comin_print_debug(msg)
    CHARACTER(LEN=*), INTENT(IN) :: msg
 
    IF (state%lstdout .AND. state%current_plugin%log_debug) THEN
      WRITE(state%output_unit, *) "DEBUG(" // state%current_plugin%name // "): " // trim(msg)
    END IF
  END SUBROUTINE comin_print_debug
 
  ! C-wrapper
  SUBROUTINE comin_print_debug_c(msg) &
    BIND(C, name="comin_print_debug")
    TYPE(c_ptr), VALUE, INTENT(IN) :: msg
 
    CALL comin_print_debug(convert_c_string(msg))
  END SUBROUTINE comin_print_debug_c
 
  SUBROUTINE comin_print_info(msg)
    CHARACTER(LEN=*), INTENT(IN) :: msg
 
    IF (state%lstdout .AND. state%current_plugin%log_info) THEN
      WRITE(state%output_unit, *) "INFO(" // state%current_plugin%name // "): " // trim(msg)
    END IF
  END SUBROUTINE comin_print_info
 
  ! C-wrapper
  SUBROUTINE comin_print_info_c(msg) &
    BIND(C, name="comin_print_info")
    TYPE(c_ptr), VALUE, INTENT(IN) :: msg
 
    CALL comin_print_info(convert_c_string(msg))
  END SUBROUTINE comin_print_info_c
 
  SUBROUTINE comin_print_warning(msg)
    CHARACTER(LEN=*), INTENT(IN) :: msg
 
    IF (state%lstdout .AND. state%current_plugin%log_warning) THEN
      WRITE(state%output_unit, *) "WARNING(" // state%current_plugin%name // "): " // trim(msg)
    END IF
  END SUBROUTINE comin_print_warning
 
  ! C-wrapper
  SUBROUTINE comin_print_warning_c(msg) &
    BIND(C, name="comin_print_warning")
    TYPE(c_ptr), VALUE, INTENT(IN) :: msg
 
    CALL comin_print_warning(convert_c_string(msg))
  END SUBROUTINE comin_print_warning_c
 
END MODULE comin_print