Back to OASIS4 home

Type transient : defined in oasis4/lib/common_oa4/src/psmile_smioc.F90

TYPE transient

    INTEGER                                                                :: ig_nb_stand_name
    INTEGER                                                                :: ig_comp_id
    INTEGER                                                                :: ig_transi_id
    INTEGER                                                                :: ig_transi_type
    INTEGER                                                                :: ig_nb_bndl      
    INTEGER                                                                :: ig_datatype    
    INTEGER                                                                :: ig_grid_id
    INTEGER                                                                :: ig_nb_transi_out
    CHARACTER(len=max_name)                             :: cg_local_name
    CHARACTER(len=max_name)                             :: cg_long_name
    CHARACTER(len=max_name)                             :: cg_comp_name
    CHARACTER(len=max_name)                             :: cg_units
    CHARACTER(len=max_name), POINTER         :: cga_stand_name(:)
    DOUBLE PRECISION                                          :: dg_transi_min
    DOUBLE PRECISION                                          :: dg_transi_max
    TYPE(transient_in)                                                :: sg_transi_in
    TYPE(transient_out),POINTER                            :: sga_transi_out(:)

END TYPE transient



TYPE transient_out

    INTEGER                                            :: ig_transi_out_id             ! transient out global id
    INTEGER                                            :: ig_dest_type                   ! PSMILe_comp or PSMILe_file
    INTEGER                                            :: ig_dest_transi_id            ! destination transient id
    INTEGER                                            :: ig_dest_comp_id            ! destination component id
    INTEGER                                            :: ig_exch_date_type
    INTEGER                                            :: ig_debugmode
    INTEGER                                            :: ig_lag 
    INTEGER                                            :: ig_src_timeop
    INTEGER                                            :: ig_conserv
    INTEGER, DIMENSION(3)              :: iga_stats
    CHARACTER(len=max_name)        :: cg_transi_out_name 
    CHARACTER(len=max_name)        :: cg_dest_transi
    CHARACTER(len=max_name)        :: cg_dest_comp_name
    TYPE (PSMILe_file_struct)              :: sg_dest_file
    TYPE (PSMILe_file_struct)              :: sg_cpl_rst_file
    TYPE (PRISM_time_struct)             :: sg_min_period
    TYPE (PSMILe_exch_date)              :: sg_exch_date
    TYPE (PSMILe_src_local_trans)      :: sg_src_local_trans
    TYPE (PSMILe_interp)                     :: sg_interp                         
    TYPE (PSMILe_combi_struct)         :: sg_combi

END TYPE transient_out
! sg_interp : interpolations to perform on the transient : In the SMIOC, interpolation is defined as a target transformation. The interpolation information is copied in the transient_out by the Driver as these information may be needed by the source PSMILe.


TYPE transient_in

    INTEGER                                                  :: ig_nb_in_orig
    INTEGER                                                  :: ig_exch_date_type
    INTEGER                                                  :: ig_debugmode
    INTEGER                                                  :: ig_tgt_timeop
    INTEGER, DIMENSION(3)                     :: iga_stats
    TYPE (PRISM_time_struct)                     :: sg_min_period
    TYPE (PSMILe_tgt_local_trans)              :: sg_tgt_local_trans
    TYPE (PSMILe_exch_date)                      :: sg_exch_date
    TYPE (PSMILe_in_origin),POINTER     :: sga_in_orig(:)

END TYPE transient_in