wrfv2_fire/phys/module_fire_debug_output.F

   1 MODULE module_fire_debug
   2
   3       USE module_domain
   4       USE module_configure
   5       TYPE(domain), POINTER, SAVE :: fd_domain_ptr
   6       TYPE(grid_config_rec_type), SAVE :: fd_config_flags
   7
   8       CONTAINS
   9
  10       SUBROUTINE set_fire_debug_vars(lgrid,lconfig)
  11       IMPLICIT NONE
  12
  13       TYPE(domain),INTENT(IN),TARGET :: lgrid
  14       TYPE(grid_config_rec_type),INTENT(IN) :: lconfig
  15
  16       fd_domain_ptr=>lgrid
  17       fd_config_flags=lconfig
  18       END SUBROUTINE set_fire_debug_vars
  19
  20       SUBROUTINE fire_debug_write
  21       IMPLICIT NONE
  22       INTEGER :: stream
  23       stream=0
  24       CALL med_hist_out(fd_domain_ptr,stream,fd_config_flags)
  25       CALL med_restart_out(fd_domain_ptr,fd_config_flags)
  26       END SUBROUTINE fire_debug_write
  27
  28 END MODULE module_fire_debug
  29
  30