changeocc.f90

Go to the documentation of this file.

SUBROUTINE changeocc(CP_IN,  CP_OUT, &
                     ct_in,  ct_out, &
                     cs_in,  cs_out, &
                     tsn_in, tsn_out,&
                     eq_in,  eq_out) 

  USE ids_schemas
  USE ids_routines
  
  IMPLICIT NONE

  TYPE (ids_core_profiles)                     :: cp_in,  cp_out
  TYPE (ids_core_transport)                    :: ct_in,  ct_out
  TYPE (ids_core_sources)                      :: cs_in,  cs_out
  TYPE (ids_transport_solver_numerics)         :: tsn_in, tsn_out
  TYPE (ids_equilibrium)                       :: eq_in,  eq_out


  CALL ids_copy(cp_in,  cp_out)
  CALL ids_copy(ct_in,  ct_out)
  CALL ids_copy(cs_in,  cs_out)
  CALL ids_copy(tsn_in, tsn_out)
  CALL ids_copy(eq_in,  eq_out)



  RETURN

END SUBROUTINE changeocc


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