init_transi.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_transients
00008 !
00009 ! !INTERFACE
00010 !
00011   SUBROUTINE init_transi (id_nb_transi,                 &
00012                           ida_nb_stand_name,            &
00013                           ida_nb_transi_in,             &
00014                           ida_nb_transi_out,            &
00015                           sda_smioc_transi,             &
00016                           id_error )     
00017 !     
00018     USE PSMILe_smioc
00019     IMPLICIT NONE
00020 !
00021 ! !REVISED HISTORY
00022 !   Date        Programmer     Description
00023 ! ----------    ----------     -----------
00024 ! 20/10/2003    S. Valcke      Creation
00025 ! 30/12/2003    D. Declat      Implemented as a module
00026 !
00027 !EOP
00028 !----------------------------------------------------------------------
00029 ! $Id: psmile_smioc.F90 1793 2008-11-25 14:58:31Z valcke $
00030 ! $Author: valcke $
00031 !----------------------------------------------------------------------
00032 !
00033 ! !INPUT PARAMETERS:
00034 !   number of transient variables
00035     INTEGER,INTENT(In):: id_nb_transi
00036 
00037 !   number of standard names for each transient
00038     INTEGER,DIMENSION(id_nb_transi),INTENT(In):: ida_nb_stand_name
00039 
00040 !   number of input origins for each transient
00041     INTEGER,DIMENSION(id_nb_transi),INTENT(In):: ida_nb_transi_in
00042 
00043 !   number of output for each transient
00044     INTEGER,DIMENSION(id_nb_transi),INTENT(In):: ida_nb_transi_out
00045 !
00046 ! !RETURN VALUE:
00047 !   transients structure
00048     TYPE(transient),DIMENSION(id_nb_transi),INTENT(InOut):: 
00049        sda_smioc_transi 
00050 !
00051 ! returned error code
00052    INTEGER,INTENT(Out):: id_error 
00053 !
00054 ! !LOCAL VARIABLES
00055 !   Loop indices
00056     INTEGER :: ib_tr, ib_st, ib_o, ib_i
00057 !
00058 ! !DESCRIPTION
00059 ! This routine initializes the transient information
00060 !
00061 !
00062 ! !REVISION HISTORY:
00063 !   Date        Programmer     Description
00064 ! ----------    ----------     -----------
00065 ! 13/10/2003      Valcke        Creation
00066 !
00067 !EOP
00068 !-----------------------------------------------------------------------
00069 ! $Id $
00070 ! $Author $
00071 !
00072     CHARACTER(len=len_cvs_string), SAVE :: mycvs = 
00073        '$Id $'
00074 !
00075 !----------------------------------------------------------------------
00076 
00077     DO ib_tr = 1, id_nb_transi
00078 !
00079 ! Transient general
00080 !
00081       sda_smioc_transi(ib_tr)%cg_local_name = '    '
00082       sda_smioc_transi(ib_tr)%ig_nb_stand_name = ida_nb_stand_name(ib_tr)
00083       DO ib_st = 1, ida_nb_stand_name(ib_tr)
00084         sda_smioc_transi(ib_tr)%cga_stand_name(ib_st) = '    '
00085       ENDDO
00086       sda_smioc_transi(ib_tr)%cg_long_name = '    '
00087       sda_smioc_transi(ib_tr)%cg_comp_name = '    '
00088       sda_smioc_transi(ib_tr)%ig_comp_id = PSMILe_undef
00089       sda_smioc_transi(ib_tr)%ig_transi_id = PSMILe_undef
00090       sda_smioc_transi(ib_tr)%ig_transi_type = PSMILe_undef
00091       sda_smioc_transi(ib_tr)%cg_units = '    '
00092       sda_smioc_transi(ib_tr)%dg_transi_min = PSMILe_rundef
00093       sda_smioc_transi(ib_tr)%dg_transi_max = PSMILe_rundef
00094       sda_smioc_transi(ib_tr)%ig_nb_bndl = PSMILe_undef
00095       sda_smioc_transi(ib_tr)%ig_datatype = PSMILe_undef
00096       sda_smioc_transi(ib_tr)%sg_transi_in%ig_nb_in_orig = 0
00097       sda_smioc_transi(ib_tr)%ig_nb_transi_out = 0
00098 !
00099 ! Transient in
00100 !
00101 ! Transient in minimal period
00102 !
00103       sda_smioc_transi(ib_tr)%sg_transi_in%sg_min_period%second = PSMILe_dundef
00104       sda_smioc_transi(ib_tr)%sg_transi_in%sg_min_period%minute = PSMILe_undef
00105       sda_smioc_transi(ib_tr)%sg_transi_in%sg_min_period%hour = PSMILe_undef
00106       sda_smioc_transi(ib_tr)%sg_transi_in%sg_min_period%day = PSMILe_undef
00107       sda_smioc_transi(ib_tr)%sg_transi_in%sg_min_period%month = PSMILe_undef
00108       sda_smioc_transi(ib_tr)%sg_transi_in%sg_min_period%year = PSMILe_undef
00109 !
00110 ! Transient in exchange dates
00111 !
00112       sda_smioc_transi(ib_tr)%sg_transi_in%ig_exch_date_type = PSMILe_undef
00113       sda_smioc_transi(ib_tr)%sg_transi_in%sg_exch_date%sg_period%second = PSMILe_dundef 
00114       sda_smioc_transi(ib_tr)%sg_transi_in%sg_exch_date%sg_period%minute = PSMILe_undef 
00115       sda_smioc_transi(ib_tr)%sg_transi_in%sg_exch_date%sg_period%hour = PSMILe_undef
00116       sda_smioc_transi(ib_tr)%sg_transi_in%sg_exch_date%sg_period%day = PSMILe_undef
00117       sda_smioc_transi(ib_tr)%sg_transi_in%sg_exch_date%sg_period%month = PSMILe_undef
00118       sda_smioc_transi(ib_tr)%sg_transi_in%sg_exch_date%sg_period%year = PSMILe_undef
00119 !
00120 ! Transient in target local transformations
00121 !
00122         sda_smioc_transi(ib_tr)%sg_transi_in%sg_tgt_local_trans%ig_gather = PSMILe_undef
00123         sda_smioc_transi(ib_tr)%sg_transi_in%sg_tgt_local_trans%dg_add_scalar = PSMILe_dundef
00124         sda_smioc_transi(ib_tr)%sg_transi_in%sg_tgt_local_trans%dg_mult_scalar = PSMILe_dundef
00125 !
00126 ! Transient in target time operation
00127 !
00128         sda_smioc_transi(ib_tr)%sg_transi_in%ig_tgt_timeop = PSMILe_undef
00129 !
00130 ! Transient in statistics
00131 !
00132         sda_smioc_transi(ib_tr)%sg_transi_in%iga_stats(:) = PSMILe_false
00133 !
00134 ! Transient in debug mode
00135 !
00136         sda_smioc_transi(ib_tr)%sg_transi_in%ig_debugmode = PSMILe_undef 
00137 !
00138 
00139       DO ib_i = 1, ida_nb_transi_in(ib_tr)
00140 !
00141 ! Transient in name
00142 !
00143         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%cg_transi_in_name = '    '
00144 !
00145 ! Transient in coupling restart file
00146 !
00147         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%cg_file_name = '    '
00148         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%ig_suffix = PSMILe_false 
00149         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%ig_file_format = PSMILe_undef
00150         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%ig_file_set = PSMILe_undef
00151         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%ig_file_iomode = PSMILe_undef
00152         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%ig_file_pack = PSMILe_undef
00153         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%dg_file_scal = PSMILe_dundef
00154         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%dg_file_add = PSMILe_dundef
00155         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%dg_fill_val = PSMILe_dundef
00156 !
00157 ! Transient in origin
00158 !
00159         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%ig_transi_in_id = PSMILe_undef
00160         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%cg_orig_transi = '    '
00161         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%ig_orig_transi_id = PSMILe_undef
00162         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%ig_orig_type = PSMILe_undef
00163         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%cg_orig_comp_name = '     '
00164         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%ig_orig_comp_id = PSMILe_undef
00165       
00166         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_orig_file%cg_file_name = '    ' 
00167         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_orig_file%ig_suffix = PSMILe_false 
00168         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_orig_file%ig_file_format = PSMILe_undef
00169         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_orig_file%ig_file_set = PSMILe_undef
00170         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_orig_file%ig_file_iomode = PSMILe_undef
00171         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_orig_file%ig_file_pack = PSMILe_undef
00172         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_orig_file%dg_file_scal = PSMILe_dundef
00173         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_orig_file%dg_file_add = PSMILe_dundef
00174         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_orig_file%dg_fill_val = PSMILe_dundef
00175 !
00176 !
00177 ! Transient in interpolations
00178 !
00179         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%ig_interp_type = PSMILe_undef
00180         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%iga_interp_meth(:) = PSMILe_undef
00181         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%iga_arg1(:) = PSMILe_undef
00182         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%iga_arg2(:) = PSMILe_undef
00183         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%iga_arg3(:) = PSMILe_global
00184         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%iga_arg4(:) = PSMILe_undef
00185         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%iga_arg5(:) = PSMILe_undef
00186         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%iga_arg6(:) = PSMILe_undef
00187         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%iga_arg7(:) = PSMILe_undef
00188         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%dg_arg8 = PSMILe_dundef
00189         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%cg_arg9 = '    '
00190         
00191         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%sg_arg10%cg_file_name = '    '               
00192         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%sg_arg10%ig_suffix = PSMILe_false 
00193         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%sg_arg10%ig_file_format = PSMILe_undef         
00194         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%sg_arg10%ig_file_set = PSMILe_undef         
00195         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%sg_arg10%ig_file_iomode = PSMILe_undef         
00196         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%sg_arg10%ig_file_pack = PSMILe_undef         
00197         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%sg_arg10%dg_file_scal = PSMILe_dundef
00198         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%sg_arg10%dg_file_add = PSMILe_dundef 
00199         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_interp%sg_arg10%dg_fill_val = PSMILe_dundef 
00200 !
00201 ! Transient in conservation
00202 !
00203         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%ig_conserv = PSMILe_undef 
00204 !
00205 ! Transient in combination
00206 !
00207         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%cg_combi_name = '    ' 
00208         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%ig_location = PSMILe_undef  
00209         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%ig_operand = PSMILe_undef
00210         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%dg_scalar = PSMILe_rundef
00211         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%ig_mask_type = PSMILe_undef
00212         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%cg_ext_mask_name = '    ' 
00213         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%sg_ext_mask_file%cg_file_name = '    ' 
00214         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%sg_ext_mask_file%ig_suffix = PSMILe_false 
00215         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%sg_ext_mask_file%ig_file_format = PSMILe_undef         
00216         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%sg_ext_mask_file%ig_file_set = PSMILe_undef         
00217         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%sg_ext_mask_file%ig_file_iomode = PSMILe_undef         
00218         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%sg_ext_mask_file%ig_file_pack = PSMILe_undef         
00219         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%sg_ext_mask_file%dg_file_scal = PSMILe_dundef
00220         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%sg_ext_mask_file%dg_file_add = PSMILe_dundef 
00221         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%sg_ext_mask_file%dg_fill_val = PSMILe_dundef 
00222         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%ig_combi_meth = PSMILe_undef
00223         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_combi%dg_combi_param = PSMILe_dundef
00224 !
00225 !
00226 ! Transient in coupling restart file
00227 !
00228         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%cg_file_name = '    '
00229         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%ig_suffix = PSMILe_false
00230         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%ig_file_format = PSMILe_undef
00231         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%ig_file_set = PSMILe_undef 
00232         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%ig_file_iomode = PSMILe_undef
00233         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%ig_file_pack = PSMILe_undef
00234         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%dg_file_scal = PSMILe_dundef
00235         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%dg_file_add = PSMILe_dundef 
00236         sda_smioc_transi(ib_tr)%sg_transi_in%sga_in_orig(ib_i)%sg_cpl_rst_file%dg_fill_val = PSMILe_dundef 
00237 !
00238       ENDDO
00239 !
00240 ! Transient out
00241 !
00242       DO ib_o = 1, ida_nb_transi_out(ib_tr)
00243 !
00244 ! Transient out name
00245 !
00246         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%cg_transi_out_name = '    '
00247 !
00248 ! Transient out minimal period
00249 !
00250         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_min_period%second = PSMILe_dundef
00251         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_min_period%minute = PSMILe_undef
00252         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_min_period%hour = PSMILe_undef
00253         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_min_period%day = PSMILe_undef
00254         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_min_period%month = PSMILe_undef
00255         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_min_period%year = PSMILe_undef
00256 !
00257 ! Transient out coupling restart file
00258 !
00259         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_cpl_rst_file%cg_file_name = '    ' 
00260         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_cpl_rst_file%ig_suffix = PSMILe_false 
00261         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_cpl_rst_file%ig_file_format = PSMILe_undef
00262         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_cpl_rst_file%ig_file_set = PSMILe_undef
00263         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_cpl_rst_file%ig_file_iomode = PSMILe_undef
00264         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_cpl_rst_file%ig_file_pack = PSMILe_undef
00265         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_cpl_rst_file%dg_file_scal = PSMILe_dundef
00266         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_cpl_rst_file%dg_file_add = PSMILe_dundef
00267         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_cpl_rst_file%dg_fill_val = PSMILe_dundef
00268 !
00269 ! Transient out destination
00270 !
00271         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%ig_transi_out_id = PSMILe_undef
00272         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%cg_dest_transi = '    '
00273         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%ig_dest_type = PSMILe_undef
00274         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%cg_dest_comp_name = '     '
00275         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%ig_dest_transi_id = PSMILe_undef
00276         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%ig_dest_comp_id = PSMILe_undef
00277         
00278         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_dest_file%cg_file_name = '    ' 
00279         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_dest_file%ig_suffix = PSMILe_false 
00280         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_dest_file%ig_file_format = PSMILe_undef
00281         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_dest_file%ig_file_set = PSMILe_undef
00282         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_dest_file%ig_file_iomode = PSMILe_undef
00283         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_dest_file%ig_file_pack = PSMILe_undef
00284         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_dest_file%dg_file_scal = PSMILe_dundef
00285         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_dest_file%dg_file_add = PSMILe_dundef
00286         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_dest_file%dg_fill_val = PSMILe_dundef
00287 !
00288 ! Transient out exchange dates
00289 !
00290         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%ig_exch_date_type = PSMILe_undef
00291         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_exch_date%sg_period%second = PSMILe_dundef 
00292         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_exch_date%sg_period%minute = PSMILe_undef 
00293         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_exch_date%sg_period%hour = PSMILe_undef
00294         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_exch_date%sg_period%day = PSMILe_undef
00295         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_exch_date%sg_period%month = PSMILe_undef
00296         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_exch_date%sg_period%year = PSMILe_undef
00297 !
00298 ! Transient out lag
00299 !
00300         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%ig_lag = PSMILe_undef
00301 !
00302 ! Transient out time operation
00303 !
00304         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%ig_src_timeop = PSMILe_undef
00305 !
00306 ! Transient out statistics
00307 !
00308         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%iga_stats(:) = PSMILe_false
00309 !
00310 ! Transient out source local transformations
00311 !
00312         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_src_local_trans%ig_scatter = PSMILe_undef
00313         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_src_local_trans%ig_reduc_type(:) = PSMILe_undef
00314         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_src_local_trans%ig_reduc_order(:) = PSMILe_undef
00315         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_src_local_trans%dg_add_scalar = PSMILe_dundef
00316         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_src_local_trans%dg_mult_scalar = PSMILe_dundef
00317 !
00318 ! Transient out interpolations
00319 !
00320         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%ig_interp_type = PSMILe_undef
00321         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%iga_interp_meth(:) = PSMILe_undef
00322         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%iga_arg1(:) = PSMILe_undef
00323         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%iga_arg2(:) = PSMILe_undef
00324         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%iga_arg3(:) = PSMILe_undef
00325         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%iga_arg4(:) = PSMILe_undef
00326         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%iga_arg5(:) = PSMILe_undef
00327         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%iga_arg6(:) = PSMILe_undef
00328         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%iga_arg7(:) = PSMILe_undef
00329         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%dg_arg8 = PSMILe_dundef
00330         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%cg_arg9 = '    '
00331         
00332         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%sg_arg10%cg_file_name = '    '               
00333         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%sg_arg10%ig_suffix = PSMILe_false 
00334         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%sg_arg10%ig_file_format = PSMILe_undef         
00335         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%sg_arg10%ig_file_set = PSMILe_undef         
00336         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%sg_arg10%ig_file_iomode = PSMILe_undef         
00337         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%sg_arg10%ig_file_pack = PSMILe_undef         
00338         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%sg_arg10%dg_file_scal = PSMILe_dundef
00339         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%sg_arg10%dg_file_add = PSMILe_dundef 
00340         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_interp%sg_arg10%dg_fill_val = PSMILe_dundef 
00341 !
00342 ! Transient out conservation
00343 !
00344         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%ig_conserv = PSMILe_undef 
00345 !
00346 ! Transient out combination
00347 !
00348         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%cg_combi_name = '    ' 
00349         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%ig_location = PSMILe_undef  
00350         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%ig_operand = PSMILe_undef
00351         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%dg_scalar = PSMILe_rundef
00352         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%ig_mask_type = PSMILe_undef
00353         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%cg_ext_mask_name = '    ' 
00354         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%sg_ext_mask_file%cg_file_name = '    ' 
00355         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%sg_ext_mask_file%ig_suffix = PSMILe_false 
00356         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%sg_ext_mask_file%ig_file_format = PSMILe_undef         
00357         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%sg_ext_mask_file%ig_file_set = PSMILe_undef         
00358         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%sg_ext_mask_file%ig_file_iomode = PSMILe_undef         
00359         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%sg_ext_mask_file%ig_file_pack = PSMILe_undef         
00360         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%sg_ext_mask_file%dg_file_scal = PSMILe_dundef
00361         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%sg_ext_mask_file%dg_file_add = PSMILe_dundef 
00362         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%sg_ext_mask_file%dg_fill_val = PSMILe_dundef 
00363         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%ig_combi_meth = PSMILe_undef
00364         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%sg_combi%dg_combi_param = PSMILe_dundef
00365 !
00366 ! Transient out debug mode
00367 !
00368         sda_smioc_transi(ib_tr)%sga_transi_out(ib_o)%ig_debugmode = PSMILe_undef 
00369 
00370       ENDDO
00371     ENDDO
00372 
00373     id_error = 0
00374 
00375   END SUBROUTINE init_transi
00376 !
00377 !------------------------------------------------------------------------