fc2k_workaround_neutrals.f90

Go to the documentation of this file.

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  

  SUBROUTINE itmneutrals (COREIMPUR_ITER,   EQUILIBRIUM_ITER,  COREPROF_ITER, &
                          coreneutrals_old, coreneutrals_iter,                &
                          coresource_iter,  coreneutrals_new,                 &
                          control_integer,  control_double)                                                                      


  USE euitm_schemas 
  USE itm_types
  USE neutrals

  
  IMPLICIT NONE
  
  
  TYPE (type_coreimpur),   POINTER  :: coreimpur_iter(:)
  TYPE (type_equilibrium), POINTER  :: equilibrium_iter(:)
  TYPE (type_coreprof),    POINTER  :: coreprof_iter(:)
  TYPE (type_coresource),  POINTER  :: coresource_iter(:)
  TYPE (type_coreneutrals),POINTER  :: coreneutrals_old(:),coreneutrals_iter(:),coreneutrals_new(:)
  
 
  REAL (R8),             INTENT(IN) :: control_double(2)   !real control parameters
  INTEGER,               INTENT(IN) :: control_integer(1)  !real control parameters
    
    
  CALL neutrals_ets(coreimpur_iter,   equilibrium_iter,  coreprof_iter, &
                          coreneutrals_old, coreneutrals_iter,                &
                          coresource_iter,  coreneutrals_new,                 &
                          control_integer,  control_double)
                                  
     
  
  RETURN
  
  END SUBROUTINE itmneutrals