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