Receiving a coupling field

In the model time stepping loop, each process implied in the coupling receives its part of the I/O-coupling field.

• USE mod_prism_get_proto

  Module to be used by the component model to call prism_get_proto.

• CALL prism_get_proto(var_id, date, field_array, ierror)
  • var_id [INTEGER; IN]: field ID (from corresponding prism_def_var_proto)
  • date [INTEGER; IN]: number of seconds in the run at the beginning of the timestep
  • field_array [REAL, OUT]: I/O or coupling field array
  • info [INTEGER; OUT]: returned info code
    • PRISM_Recvd(=3) if the field was received from another model (directly or via OASIS3 main process)
    • PRISM_FromRest (=10) if the field was read from a restart file only (directly or via OASIS3 main process)
    • PRISM_Input (=11) if the field was read from an input file only
    • PRISM_RecvOut (=12) if the field was both received from another model (directly or via OASIS3 main process) and written to an output file
    • PRISM_FromRestOut (=13) if the field was both read from a restart file (directly or via OASIS3 main process) and written to an output file
    • PRISM_Ok (=0) otherwise and no error occurred.

This routine may be called by the model at each timestep. The date argument is automatically analysed and the receiving action is actually performed only if date corresponds to a time for which it should be activated, given the period indicated by the user in the namcouple. A field will not be received at all if its coupling or I/O period indicated in the namcouple is greater than the total run time.