fc2k_SPITZER_resistivity.f90

Go to the documentation of this file.

!-------------------------------------------------------!
!-------------------------------------------------------!

  SUBROUTINE fc2k_spitzer_resistivity    (COREPROF_IN, CORETRANSP_OUT) 

!-------------------------------------------------------!
!     This routine is the interface used by the         !
!     ETS workflow to the routine calculating           !
!     Spitzer resistivity                               !
!-------------------------------------------------------!
!     Source:       ---                                 !
!     Developers:   D.Kalupin                           !
!     Kontacts:     Denis.Kalupin@efda.org              !
!                                                       !
!     Comments:     output CORETRANSP CPO is            !
!                   allocated inside the module         !
!                                                       !
!-------------------------------------------------------!

      USE itm_types
      USE euitm_schemas
      USE spitzer
      

      IMPLICIT NONE

! +++ CPO types:
      TYPE (type_coreprof),    POINTER  :: coreprof_in(:)        !input CPO with profiles
      TYPE (type_coretransp),  POINTER  :: coretransp_out(:)     !output CPO with transport (SIGMA)

      CALL spitzer_resistivity(coreprof_in, coretransp_out) 

      RETURN

      END SUBROUTINE fc2k_spitzer_resistivity    
!-------------------------------------------------------!
!-------------------------------------------------------!