init_comp_udef.F90

Go to the documentation of this file.
00001 !------------------------------------------------------------------------
00002 ! Copyright 2006-2010, CERFACS, Toulouse, France.
00003 ! All rights reserved. Use is subject to license terms.
00004 !------------------------------------------------------------------------
00005 !BOP
00006 !
00007 !  !IROUTINE init_comp_udef
00008 !
00009   SUBROUTINE init_comp_udef ( id_nb_transi,                 &
00010                               ida_nb_transi_in,             &
00011                               ida_nb_transi_out,            &
00012                               id_comp,                      &
00013                               id_error )
00014 !
00015     USE PSMILe_smioc
00016     IMPLICIT NONE
00017 !
00018 ! !REVISED HISTORY
00019 !   Date        Programmer     Description
00020 ! ----------    ----------     -----------
00021 ! 20/10/2003    S. Valcke      Creation
00022 ! 30/12/2003    D. Declat      Implemented as a module
00023 !
00024 !EOP
00025 !----------------------------------------------------------------------
00026 ! $Id: psmile_smioc.F90 1793 2008-11-25 14:58:31Z valcke $
00027 ! $Author: valcke $
00028 !----------------------------------------------------------------------
00029 !
00030  ! !INPUT PARAMETERS:
00031 !   number of transient variables in XML SMIOC for one component
00032     INTEGER,INTENT(In):: id_nb_transi
00033 
00034 !   number of input origins for each transient
00035     INTEGER,DIMENSION(id_nb_transi),INTENT(In):: ida_nb_transi_in
00036 
00037 !   number of output for each transient
00038     INTEGER,DIMENSION(id_nb_transi),INTENT(In):: ida_nb_transi_out
00039 
00040 !   index of component
00041     INTEGER, INTENT(In) :: id_comp
00042 !
00043 ! !RETURN VALUE:
00044 !   Global structure sga_comp_udef_idx variables are all = .false.
00045 !
00046 ! returned error code
00047    INTEGER,INTENT(Out):: id_error
00048 !
00049 ! !LOCAL VARIABLES
00050 !   Loop indices
00051     INTEGER :: ib_tr, ib_o, ib_i
00052 !
00053 ! !DESCRIPTION
00054 ! This routine initializes the transient information about User-defined Interp.
00055 !
00056 !
00057 ! !REVISION HISTORY:
00058 !   Date        Programmer     Description
00059 ! ----------    ----------     -----------
00060 ! 15/11/2009      Latour        Creation
00061 !
00062 !EOP
00063 !----------------------------------------------------------------------- 
00064 
00065    
00066     DO ib_tr = 1, id_nb_transi
00067 !
00068 ! Transient general flag 
00069 !
00070       sga_comp_udef_idx(id_comp)%sla_driver_udef(ib_tr)%cg_local_name = '    '
00071 !
00072       sga_comp_udef_idx(id_comp)%sla_driver_udef(ib_tr)%lg_trans_ud = .false.
00073 ! 
00074       sga_comp_udef_idx(id_comp)%sla_driver_udef(ib_tr)%ig_dim_orig = ida_nb_transi_in(ib_tr)
00075       sga_comp_udef_idx(id_comp)%sla_driver_udef(ib_tr)%ig_dim_out = ida_nb_transi_out(ib_tr)
00076 !
00077 !  Transients in  origins
00078 
00079        DO ib_i = 1, ida_nb_transi_in(ib_tr)
00080 !
00081           sga_comp_udef_idx(id_comp)%sla_driver_udef(ib_tr)%   &
00082                                      lga_trin_orig(ib_i) = .false.
00083        ENDDO
00084 !
00085 !  Transients out 
00086        DO ib_o = 1, ida_nb_transi_out(ib_tr)
00087 !
00088           sga_comp_udef_idx(id_comp)%sla_driver_udef(ib_tr)%   &
00089                                      lga_trout(ib_o) = .false.
00090        ENDDO
00091 
00092     ENDDO
00093     
00094     id_error = 0
00095 
00096   END SUBROUTINE init_comp_udef
00097 !
00098 !-----------------------------------------------------------------------