Template:CMI Example CMI finalize Fortran

! Insert-Code-Here {edu.csdms.models.LTRANS.CMI_finalize} (CMI_finalize method)
!
! This method has not been implemented
!
  type(edu_csdms_ports_CMIPort_t) :: ocean_port
  type(edu_csdms_tools_IRFPortQueue_t) :: port_queue
  type(edu_csdms_models_LTRANS_wrap) :: dp

  call edu_csdms_models_LTRANS__get_data_m(self, dp)

  dp%d_private_data%cmi_status = 'F'
  port_queue = dp%d_private_data%irf_port_queue

  call get_cmi_port(port_queue, "Ocean", ocean_port, exception)

  print *, 'Ltrans_cmi> Finalizing ocean port'
  call finalize_ports(port_queue, exception)

  print *, "LTRANS_CMI> Finalize LTRANS"
  call ltran_finalize()