Coupling field declaration

All processes of a component that send or receive a coupling field, or a part of it, needs to declare the coupling field.

Contrary to use in OASIS3-MCT 2.0, the processes not implied in the coupling do not have to call this routine at all (for backward compatibility, they may still call it with any name and il_part_id).

• CALL oasis_def_var (var_id, name, il_part_id, var_nodims, kinout,
  var_actual_shape, var_type, ierror) or

• CALL prism_def_var_proto(var_id, name, il_part_id, var_nodims, kinout, var_actual_shape, var_type, ierror)
  • var_id [INTEGER; OUT]: coupling field ID. Note that all coupling fields appearing in the namcouple must be defined with a call to oasis_def_var; not doing so would lead to an abort. But all fields defined with a call to oasis_def_var must not necessarily appear in the namcouple. If a field does not appear in the namcouple, the var_id returned by the oasis_def_var will be equal to -1; the value of the var_id should be tested and the corresponding oasis_put and oasis_get should not be called if var_id equals -1. These constraints are imposed to avoid that a typo in the namcouple would lead to coupling exchanges not corresponding to what the user intends to activate.
  • name [CHARACTER; IN]: field symbolic name (as in the namcouple); maximum length of 80 characters
  • il_part_id [INTEGER; IN]: partition ID returned from oasis_def_partition (see section 2.2.3)
  • var_nodims [INTEGER, DIMENSION(2); IN]: var_nodims(1) is the rank of field array (1 or 2); var_nodims(2) is the number of bundles (always 1 in the current OASIS3-MCT version).
  • kinout [INTEGER; IN]: OASIS_In or PRISM_In (i.e. = 15) for fields received by the component; OASIS_Out, PRISM_Out (i.e. = 14) for fields sent by the component ⁴.
  • var_actual_shape [INTEGER, DIMENSION(2*var_nodims(1)); IN]: vector of integers giving the minimum and maximum index for each dimension of the coupling field array; for the current OASIS3-MCT version, the minimum index has to be 1 and the maximum index has to be the extent of the dimension.
  • var_type [INTEGER; IN]: type of coupling field array; put OASIS_Real or PRISM_Real (i.e. = 4) for single or double precision real arrays. All coupling data is treated as double precision in the coupling layer, but conversion to or from single precision data is supported in the interface.
  • ierror [INTEGER; OUT]: returned error code.

Footnotes

... component⁴

Parameters OASIS_In, PRISM_In, OASIS_Out, PRISM_Out are defined in oasis3-mct/lib/psmile/src/mod_oasis_parameters.F90