LCOV - code coverage report
Current view: | top level - physics/cam - waccmx_phys_intr.F90 (source / functions) |  |  | Hit | Total | Coverage
Test: | coverage.info |  | Lines: | 4 | 16 | 25.0 %
Date: | 2024-12-17 17:57:11 |  | Functions: | 2 | 8 | 25.0 %

              Line data    Source code
           1             : module waccmx_phys_intr
           2             :   use shr_kind_mod,   only: r8 => shr_kind_r8
           3             :   use physics_types,  only: physics_state, physics_ptend
           4             :   use physics_buffer, only: physics_buffer_desc
           5             :
           6             : #ifdef WACCMX_PHYS
           7             :   use majorsp_diffusion, only: mspd_init
           8             :   use majorsp_diffusion, only: mspd_intr
           9             :   use ion_electron_temp, only: ion_electron_temp_readnl
          10             :   use ion_electron_temp, only: ion_electron_temp_init
          11             :   use ion_electron_temp, only: ion_electron_temp_timestep_init
          12             :   use ion_electron_temp, only: ion_electron_temp_register
          13             :   use ion_electron_temp, only: ion_electron_temp_inidat
          14             :   use ion_electron_temp, only: ion_electron_temp_tend
          15             :   use iondrag, only: iondrag_inidat
          16             : #endif
          17             :
          18             :   implicit none
          19             :   private
          20             :
          21             :   public :: waccmx_phys_mspd_init
          22             :   public :: waccmx_phys_mspd_tend
          23             :   public :: waccmx_phys_ion_elec_temp_reg
          24             :   public :: waccmx_phys_ion_elec_temp_inidat
          25             :   public :: waccmx_phys_ion_elec_temp_init
          26             :   public :: waccmx_phys_ion_elec_temp_timestep_init
          27             :   public :: waccmx_phys_ion_elec_temp_tend
          28             :   public :: waccmx_phys_ion_elec_temp_readnl
          29             :
          30             : contains
          31             :
          32             :   !------------------------------------------------------------------------------
          33             :   !------------------------------------------------------------------------------
          34           0 :   subroutine waccmx_phys_mspd_init
          35             :
          36             : #ifdef WACCMX_PHYS
          37             :     call mspd_init()
          38             : #endif
          39           0 :   end subroutine waccmx_phys_mspd_init
          40             :
          41             :   !------------------------------------------------------------------------------
          42             :   !------------------------------------------------------------------------------
          43           0 :   subroutine waccmx_phys_mspd_tend(ztodt, state, ptend)
          44             :
          45             :     real(r8), intent(in) :: ztodt                  ! 2 delta-t
          46             :     type(physics_state), intent(in)     :: state   ! Physics state variables
          47             :     type(physics_ptend), intent(inout)  :: ptend   ! indivdual parameterization tendencies
          48             :
          49             : #ifdef WACCMX_PHYS
          50             :     call mspd_intr(ztodt, state, ptend)
          51             : #endif
          52           0 :   end subroutine waccmx_phys_mspd_tend
          53             :
          54             :   !------------------------------------------------------------------------------
          55             :   !------------------------------------------------------------------------------
          56           0 :   subroutine waccmx_phys_ion_elec_temp_reg
          57             :
          58             : #ifdef WACCMX_PHYS
          59             :     call ion_electron_temp_register
          60             : #endif
          61             :
          62           0 :   end subroutine waccmx_phys_ion_elec_temp_reg
          63             :
          64             :   !------------------------------------------------------------------------------
          65             :   !------------------------------------------------------------------------------
          66        1536 :   subroutine waccmx_phys_ion_elec_temp_readnl(nlfilename)
          67             :     character(len=*), intent(in) :: nlfilename
          68             : #ifdef WACCMX_PHYS
          69             :     call ion_electron_temp_readnl(nlfilename)
          70             : #endif
          71        1536 :   end subroutine waccmx_phys_ion_elec_temp_readnl
          72             :
          73             :   !------------------------------------------------------------------------------
          74             :   !------------------------------------------------------------------------------
          75         768 :   subroutine waccmx_phys_ion_elec_temp_inidat(ncid_ini,pbuf2d)
          76             :
          77             :     use pio, only : file_desc_t
          78             :
          79             :     type(file_desc_t), intent(inout)   :: ncid_ini      ! Initial condition file id
          80             :     type(physics_buffer_desc), pointer :: pbuf2d(:,:)   ! Physics buffer
          81             :
          82             : #ifdef WACCMX_PHYS
          83             :     call ion_electron_temp_inidat(ncid_ini,pbuf2d)
          84             :     call iondrag_inidat(ncid_ini,pbuf2d)
          85             : #endif
          86         768 :   end subroutine waccmx_phys_ion_elec_temp_inidat
          87             :
          88             :   !------------------------------------------------------------------------------
          89             :   !------------------------------------------------------------------------------
          90           0 :   subroutine waccmx_phys_ion_elec_temp_init(pbuf2d)
          91             :
          92             :     type(physics_buffer_desc), pointer :: pbuf2d(:,:)
          93             :
          94             : #ifdef WACCMX_PHYS
          95             :     call ion_electron_temp_init(pbuf2d)
          96             : #endif
          97           0 :   end subroutine waccmx_phys_ion_elec_temp_init
          98             :
          99             :   !------------------------------------------------------------------------------
         100             :   !------------------------------------------------------------------------------
         101           0 :   subroutine waccmx_phys_ion_elec_temp_timestep_init(phys_state,pbuf2d)
         102             :     use ppgrid, only : begchunk, endchunk
         103             :
         104             :     type(physics_state), intent(in) :: phys_state(begchunk:endchunk)
         105             :     type(physics_buffer_desc), pointer :: pbuf2d(:,:)
         106             :
         107             : #ifdef WACCMX_PHYS
         108             :     call ion_electron_temp_timestep_init(phys_state,pbuf2d)
         109             : #endif
         110           0 :   end subroutine waccmx_phys_ion_elec_temp_timestep_init
         111             :
         112             :   !------------------------------------------------------------------------------
         113             :   !------------------------------------------------------------------------------
         114           0 :   subroutine waccmx_phys_ion_elec_temp_tend(state, ptend, pbuf, ztodt)
         115             :
         116             :     type(physics_state), intent(in)    :: state               ! physics state structure
         117             :     type(physics_ptend), intent(inout) :: ptend               ! parameterization tendency structure
         118             :     type(physics_buffer_desc),pointer  :: pbuf(:)             ! physics buffer
         119             :
         120             :     real(r8),            intent(in)    :: ztodt               ! Physics time step
         121             :
         122             : #ifdef WACCMX_PHYS
         123             :     call ion_electron_temp_tend(state, ptend, pbuf, ztodt)
         124             : #endif
         125           0 :   end subroutine waccmx_phys_ion_elec_temp_tend
         126             :
         127             : end module waccmx_phys_intr

Generated by: LCOV version 1.14