fc2k_checkconvergence.f90

Go to the documentation of this file.

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
  SUBROUTINE checkconvergence (COREPROF_ITER, COREPROF_NEW, CONV) 

!-------------------------------------------------------!
!     This routinechecks the convergence of plasma      !
!     profiles.                                         !
!-------------------------------------------------------!
!     Source:       ---                                 !
!     Developers:   D.Kalupin                           !
!     Kontacts:     D.Kalupin@fz-juelich.de             !
!                                                       !
!     Comments:     ---                                 !
!                                                       !
!-------------------------------------------------------!


! +++ Declaration of variables: 
    USE euitm_schemas
    USE itm_constants
    USE convergence_check


    IMPLICIT NONE

! +++ CPO derived types:
    TYPE (type_coreprof), POINTER  :: coreprof_iter(:) !input/output CPO with internal ETS parameters profiles 
    TYPE (type_coreprof), POINTER  :: coreprof_new(:)  !input/output CPO with internal ETS parameters profiles 


! +++ Internal ETS derived types:
    REAL (R8)                      :: control_double(5)!real control parameters
    REAL (R8)                      :: conv


    CALL check_convergence(coreprof_iter, coreprof_new, control_double) 

    conv = control_double(4)


    RETURN 

  END SUBROUTINE checkconvergence
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +