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