00001 subroutine MPP_WRITE_( unit, field, data, tstamp ) 00002 integer, intent(in) :: unit 00003 type(fieldtype), intent(in) :: field 00004 MPP_TYPE_, intent(in) :: data MPP_RANK_ 00005 real(DOUBLE_KIND), intent(in), optional :: tstamp 00006 00007 MPP_WRITE_RECORD_ 00008 00009 return 00010 end subroutine MPP_WRITE_