chem/module_mosaic_lsode.F

   1 module module_mosaic_lsode
   2   !
   3   ! double precision lsodes solver
   4   !
   5   implicit none
   6   private
   7
   8   public :: MOSAIC_LSODE
   9
  10 contains
  11   subroutine MOSAIC_LSODE(dtchem)
  12     use module_data_mosaic_kind
  13
  14     implicit none
  15
  16
  17     ! subr arguments
  18     real(r8), intent(in) :: dtchem
  19
  20     call wrf_error_fatal('*** error - mosaic_lsode has been deactivated ***')
  21
  22     return
  23   end subroutine MOSAIC_LSODE
  24
  25 end module module_mosaic_lsode