neoclassic2coretransp.f90

Go to the documentation of this file.

!-------------------------------------------------------!
!-------------------------------------------------------!
     SUBROUTINE neoclassic2coretransp(NEOCLASSIC, CORETRANSP)
!-------------------------------------------------------!
!     This routine converts transport data from         !
!     NEOCLASSIC to CORETRANSP CPO                      !
!-------------------------------------------------------!
!     Source:       ---                                 !
!     Developers:   D.Kalupin                           !
!     Kontacts:     D.Kalupin@fz-juelich.de             !
!                                                       !
!     Comments:     should be udated after NCLASS       !
!                   is available to the ETS             !
!                                                       !
!-------------------------------------------------------!


     USE euitm_schemas
     USE itm_constants
     USE convert

     IMPLICIT NONE

     TYPE (type_neoclassic), POINTER :: neoclassic(:)
     TYPE (type_coretransp), POINTER :: coretransp(:)

     CALL convert_neoclassic2coretransp(neoclassic, coretransp)


    RETURN     


    END SUBROUTINE neoclassic2coretransp
!-------------------------------------------------------!
!-------------------------------------------------------!