Line data    Source code

       1             : module cam_instance
       2             : 
       3             :   implicit none
       4             :   public
       5             : 
       6             :   integer          , public :: atm_id
       7             :   integer          , public :: inst_index
       8             :   character(len=16), public :: inst_name
       9             :   character(len=16), public :: inst_suffix
      10             : 
      11             : !===============================================================================
      12             : CONTAINS
      13             : !===============================================================================
      14             : 
      15        1536 :   subroutine cam_instance_init(atm_id_in, inst_name_in, inst_index_in, inst_suffix_in)
      16             : 
      17             :     integer          , intent(in) :: atm_id_in
      18             :     character(len=*) , intent(in) :: inst_name_in
      19             :     integer          , intent(in) :: inst_index_in
      20             :     character(len=*) , intent(in) :: inst_suffix_in
      21             : 
      22             :     ! The following sets the module variables
      23        1536 :     atm_id      = atm_id_in
      24        1536 :     inst_name   = inst_name_in
      25        1536 :     inst_index  = inst_index_in
      26        1536 :     inst_suffix = inst_suffix_in
      27             : 
      28        1536 :   end subroutine cam_instance_init
      29             : 
      30             : end module cam_instance