chem/module_peg_util.F

   1 !#**********************************************************************************
   2 ! This computer software was prepared by Battelle Memorial Institute, hereinafter
   3 ! the Contractor, under Contract No. DE-AC05-76RL0 1830 with the Department of
   4 ! Energy (DOE). NEITHER THE GOVERNMENT NOR THE CONTRACTOR MAKES ANY WARRANTY,
   5 ! EXPRESS OR IMPLIED, OR ASSUMES ANY LIABILITY FOR THE USE OF THIS SOFTWARE.
   6 !
   7 ! miscellaneous debuging routines for CBMZ and MOSAIC
   8 !**********************************************************************************
   9         module module_peg_util
  10
  11
  12         contains
  13
  14
  15 !-----------------------------------------------------------------------
  16         subroutine peg_debugmsg( lun, level, str )
  17 !
  18 ! when lun >  0, writes "str" to unit "lun"
  19 ! when lun <= 0, passes "str" on to wrf_debug
  20 !
  21         implicit none
  22 ! subr arguments
  23         integer, intent(in) :: lun, level
  24         character(len=*), intent(in) :: str
  25 ! local variables
  26         integer n
  27
  28         n = max( 1, len_trim(str) )
  29         if (lun .gt. 0) then
  30             write(lun,'(a)') str(1:n)
  31         else
  32             call wrf_debug( level, str(1:n) )
  33         end if
  34         return
  35         end subroutine peg_debugmsg
  36
  37
  38 !-----------------------------------------------------------------------
  39         subroutine peg_message( lun, str )
  40 !
  41 ! when lun >  0, writes "str" to unit "lun"
  42 ! when lun <= 0, passes "str" on to wrf_message
  43 !
  44         implicit none
  45 ! subr arguments
  46         integer, intent(in) :: lun
  47         character(len=*), intent(in) :: str
  48 ! local variables
  49         integer n
  50
  51         n = max( 1, len_trim(str) )
  52         if (lun .gt. 0) then
  53             write(lun,'(a)') str(1:n)
  54         else
  55             call wrf_message( str(1:n) )
  56         end if
  57         return
  58         end subroutine peg_message
  59
  60
  61 !-----------------------------------------------------------------------
  62         subroutine peg_error_fatal( lun, str )
  63 !
  64 ! when lun >  0, writes "str" to unit "lun"
  65 ! then (always)  passes "str" on to wrf_error_fatal
  66 !
  67         implicit none
  68 ! subr arguments
  69         integer, intent(in) :: lun
  70         character(len=*), intent(in) :: str
  71 ! local variables
  72         integer n
  73
  74         n = max( 1, len_trim(str) )
  75         if (lun .gt. 0) write(lun,'(a)') str(1:n)
  76         call wrf_error_fatal( str(1:n) )
  77         return
  78         end subroutine peg_error_fatal
  79
  80
  81 !-----------------------------------------------------------------------
  82         end module module_peg_util