MODULE module_cam_support







  use module_state_description, only: param_num_moist
  use shr_kind_mod

  implicit none

  public
  save

  integer(SHR_KIND_IN),parameter,private :: R8 = SHR_KIND_R8 


  logical, parameter :: masterproc = .true.


  integer, parameter :: pcols = 1   
  integer :: pver                   
  integer :: pverp                  


  integer, parameter :: pcnst = param_num_moist 
                                          
                                          
                                          
                                          
                                          
  real(kind=r8), parameter, dimension(pcnst) :: qmin = 0. 
                                          


  character(len=250) :: iulog       
                                    


integer, parameter, public :: phys_decomp=100


integer, parameter :: fieldname_len = 16   


CONTAINS































SUBROUTINE endrun(msg)








  USE module_wrf_error


  character(len=*), intent(in), optional :: msg

  if(present(msg)) then
     call wrf_error_fatal3("<stdin>",106,&
msg)
  else

     call wrf_error_fatal3("<stdin>",110,&
iulog)
  endif

END SUBROUTINE endrun




SUBROUTINE t_stopf(event)






  character(len=*), intent(in) :: event 
  
END SUBROUTINE t_stopf




SUBROUTINE t_startf(event)







   character(len=*), intent(in) :: event

 END SUBROUTINE t_startf




SUBROUTINE outfld( fname, field, idim, c)






  character(len=*), intent(in) :: fname
  integer,          intent(in) :: idim          
  integer,          intent(in) :: c             
  real(r8),         intent(in) :: field(idim,*)

END SUBROUTINE outfld




SUBROUTINE addfld(fname, units, numlev, avgflag, long_name, &
                      decomp_type, flag_xyfill, flag_isccplev, sampling_seq)






  character(len=*), intent(in) :: fname     
  character(len=*), intent(in) :: units     
  character(len=1), intent(in) :: avgflag   
  character(len=*), intent(in) :: long_name 
  
  integer, intent(in) :: numlev             
  integer, intent(in) :: decomp_type        
  
  logical, intent(in), optional :: flag_xyfill
  logical, intent(in), optional :: flag_isccplev
  character(len=*), intent(in), optional :: sampling_seq
    
END SUBROUTINE ADDFLD

END MODULE module_cam_support