scale_model_component_proc.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
#include "scaleFElib.h"
module scale_model_component_proc
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  use scale_prof
 
  use scale_time_manager, only: &
    time_manager_component
  use scale_model_meshbase_manager, only: &
    modelmeshbase
  use scale_model_var_manager, only: &
    modelvarmanager
  
  !-----------------------------------------------------------------------------
  implicit none
  private
 
  !-----------------------------------------------------------------------------
  !
  !++ Public type & procedure
  !
  
  type, abstract, public :: modelcomponentproc
    character(len=H_SHORT) :: name
    logical, private :: is_activated = .false.    
    integer :: tm_process_id
  contains
    procedure(modelcomponentproc_setup), deferred, public :: setup
    procedure(modelcomponentproc_calc_tendency), deferred, public :: calc_tendency
    procedure(modelcomponentproc_update), deferred, public :: update
    procedure(modelcomponentproc_finalize), deferred, public :: finalize  
    
    procedure, public :: modelcomponentproc_init    
    procedure, public :: isactivated => modelcomponentproc_isactivated    
  end type modelcomponentproc
  type, abstract, public :: modelcomponentproc …
 
  interface
    subroutine modelcomponentproc_setup( this, model_mesh, tm_parent_comp )
      import modelcomponentproc
      import modelmeshbase
      import time_manager_component
      class(modelcomponentproc), intent(inout) :: this
      class(modelmeshbase), target, intent(in) :: model_mesh
      class(time_manager_component), intent(inout) :: tm_parent_comp
    subroutine modelcomponentproc_setup( this, model_mesh, tm_parent_comp ) …
    end subroutine modelcomponentproc_setup
 
    subroutine modelcomponentproc_calc_tendency( this, model_mesh, prgvars_list, trcvars_list, auxvars_list, forcing_list, is_update )
      import modelcomponentproc
      import modelmeshbase
      import modelvarmanager      
      class(modelcomponentproc), intent(inout) :: this
      class(modelmeshbase), intent(in) :: model_mesh
      class(modelvarmanager), intent(inout) :: prgvars_list
      class(modelvarmanager), intent(inout) :: trcvars_list  
      class(modelvarmanager), intent(inout) :: auxvars_list         
      class(modelvarmanager), intent(inout) :: forcing_list 
      logical, intent(in) :: is_update
    end subroutine modelcomponentproc_calc_tendency
 
    subroutine modelcomponentproc_update( this, model_mesh, prgvars_list, trcvars_list, auxvars_list, forcing_list, is_update )
      import modelcomponentproc
      import modelmeshbase
      import modelvarmanager
      class(modelcomponentproc), intent(inout) :: this
      class(modelmeshbase), intent(in) :: model_mesh
      class(modelvarmanager), intent(inout) :: prgvars_list
      class(modelvarmanager), intent(inout) :: trcvars_list      
      class(modelvarmanager), intent(inout) :: auxvars_list
      class(modelvarmanager), intent(inout) :: forcing_list
      logical, intent(in) :: is_update
    end subroutine modelcomponentproc_update
 
    subroutine modelcomponentproc_finalize( this )
      import modelcomponentproc
      class(modelcomponentproc), intent(inout) :: this
    end subroutine modelcomponentproc_finalize    
  end interface
 
 
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
 
contains
!OCL SERIAL
  subroutine modelcomponentproc_init( this, name, is_activated )
    implicit none
 
    class(modelcomponentproc), intent(inout) :: this
    character(len=*), intent(in) :: name
    logical, intent(in) :: is_activated 
    !---------------------------------------------------
    
    this%name = name
    this%is_activated = is_activated
 
    return
  end subroutine modelcomponentproc_init
 
!OCL SERIAL
  function modelcomponentproc_isactivated( this ) result( is_activated )
    implicit none
 
    class(modelcomponentproc), intent(in) :: this
    logical :: is_activated 
    !---------------------------------------------------
 
    is_activated = this%is_activated
    return
  end function modelcomponentproc_isactivated
 
end module scale_model_component_proc