ogwrit Subroutine

private subroutine ogwrit(me, Lev, Str)

Write a message to the log.

2014/07/29 | J. SCHOENMAEKERS | NEW 2025/02/09 | J. Williams | added trim()

Type Bound

optgra

Arguments

Type IntentOptional Attributes Name
class(optgra), intent(inout) :: me
integer(kind=ip), intent(in) :: Lev

only print if Loglev is >= this
character(len=*), intent(in) :: Str

string to print

Called by

proc~~ogwrit~~CalledByGraph proc~ogwrit optgra%ogwrit proc~ogcorr optgra%ogcorr proc~ogcorr->proc~ogwrit proc~ogeval optgra%ogeval proc~ogcorr->proc~ogeval proc~ogexcl optgra%ogexcl proc~ogcorr->proc~ogexcl proc~ogincl optgra%ogincl proc~ogcorr->proc~ogincl proc~ogeval->proc~ogwrit proc~ogexcl->proc~ogwrit proc~ogexec optgra%ogexec proc~ogexec->proc~ogwrit proc~ogexec->proc~ogcorr proc~ogexec->proc~ogeval proc~ogopti optgra%ogopti proc~ogexec->proc~ogopti proc~ogincl->proc~ogwrit proc~ogopti->proc~ogwrit proc~ogopti->proc~ogeval proc~ogopti->proc~ogexcl proc~ogopti->proc~ogincl

Source Code

   subroutine ogwrit(me,Lev,Str)

      !! Write a message to the log.
      !!
      !! 2014/07/29 | J. SCHOENMAEKERS | NEW
      !! 2025/02/09 | J. Williams | added trim()

      class(optgra),intent(inout) :: me
      character(len=*),intent(in) :: Str !! string to print
      integer(ip),intent(in) :: Lev !! only print if `Loglev` is >= this

      if ( Lev<=me%Loglev ) then
         write (me%Loglun,'(A)') trim(Str)
         flush (me%Loglun)
      end if

   end subroutine ogwrit